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IDENTIFICATION 
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SEQ 2 
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i. ABSTRACT 


THE DH11 CHARACTER LENGTH AND BASIC DATA TEST VERIFIES 
THAT CHARACTER LENGTH CAN BE SELECTED CORRECTLY ON 
EACH LINE CORRECTLY, AND THAT THE CORRECT 

LINE NUMBER AND CHARACTER STATUS ARE RECEIVED ON 

EACH LINE SELECTED FOR TRANSMISSION. 


Ee 





SEQ 3 
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1 
2 2. REQUIREMENTS 
‘ 2.1 EQUIPMENT 
é PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY 
7 ASR-33 TELETYPE OR EQUIVALENT 
% DH11 ASYNCHRONOUS MULTIPLEXER 
3 DM11 MAINTENANCE CARD INSTALLED 
i 2.2 STORAGE | 
13 THE PROGRAM LOADS INTO 4KW OF MEMORY 
5 3. LOADING PROCEDURE 
17 THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
a8 IS TO BE USED 
20 4. STARTING PROCEDURE 
22 4.1 CONTROL SWITCH SETTINGS 
24 4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
26 ALL CONSOLE SWITCHES DOWN 
ar 4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
29 AFTER PROGRAM RESTART 
31 SWOO=1 
33 4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
35 SWO1*1 
37 4.2 STARTING ADDRESS 
4 THE STARTING ADDRESS FOR ALL TESTS IS 000200 
4 THE RESTART ADDRESS FOR ALL TESTS I 0002000 
4s THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
4s 4.3 PROGRAM AND/OR OPERATOR ACTION 
47 4.3.1 INITIAL PROGRAM START 
49 4.3.1.1 LOAD PROGRAM INTO MEMORY 
50 4.3.1.2 LOAD ADDRESS 
51 4.3.1.3 CLEAR CONSOLE SWITCHES 
52 4.3.1.4 PRESS START 
53 4.3.1.5 THE PROGRAM WILL TYPE “DHii CHARACTER LENGTH AND BASIC DATA TEST” 
54 AND WILL THEN TYPE “VECTOR ADDRESS-” AND WAIT FOR AN 
55 INPUT FROM THE TELETYPE KEYBOARD. 
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SEQ 4 
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1 
: 4.3 (CONT’D) 
4 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
7 FOR THE DH1i TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
7 NOTE: WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 
: THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 
10 IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 
ii WILL TYPE “?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 
12 4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”“ 
1 AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
15 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
re DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
1 
18 IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE 
19 “2?” AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 
20 4.3.1.9 THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS 
zs ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 
+ 4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4 
25 4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 
26 4.3.2.2 THE PROGRAM WILL TYPE “DH11 CHARACTER LENGTH AND BASIC DATA TEST” 
Ph AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
4 4.3.3 PROGRAM RESTART WITH SWOO=1 
31 4.3.3.1 LOAD ADDRESS 000200 
32 4.3.3.2 SET SWO1=1 
33 4.3.3.3 PRESS START 
- 4.3.5.4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
7 4.3.4 PROGRAM RESTART WITH SWO1=1 
38 4.3.4.1 LOAD ADDRESS 000200 
39 4.3.4.2 SET SWOi=1 
40 4.3.4.3 PRESS START 
41 4.5.4.4 THE PROGRAM WILL TYPE “DHi1 CHARACTER LENGTH AND BASIC DATA TEST” 
42 AND WILL THEN TYPE “TEST PC-" AND WILL WAIT FOR AN INPUT 
43 FROM THE TELETYPE KEYBOARD 
4a 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
45 BE STARTED FOLLOWED BY <CARRIAGE RETURN> 
46 3. PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 
pi AND WILL START TESTING AT THE SELECTED TEST. 
49 NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE 
50 THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 
= IS IN THE MIDDLE OF A TEST 
53 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 
54 SET SW14=1 BEFORE ENTERING THE TEST ADDRESS 
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SEQ 5 
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1 
: 3. OPERATING PROCEDURE 
: 5.1 OPERATIONAL SWITCH SETTINGS 
6 SWi5=1. HALT ON ERROR 
7 SW14=1, LOOP ON CURRENT TEST 
8 SW1i3=1, SUPPRESS ERROR TYPEOUT 
9 SWii=1, INHIBIT ITERATIONS 
10 SW10=1, ESCAPE TO NEXT TEST ON ERROR 
11 SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
12 SWO1=1, START PROGRAM AT SELECTED TEST 
7 SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 
Fe 5.2 SUBROUTINE ABSTRACTS 
rH 5.2.1 TRAPCATCHER (LOCATIONS 000000-000776) 
19 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 
20 AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 
oe WITH THE FOLLOWING SEQUENCE 
23 2 
24 0 
25 4 
26 0 
27 oss 
28 772 
29 0 
30 776 
: 
33 IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 
34 WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 
35 WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 
36 BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 
: TRAP OR INTERRUPT OCCURED. 
pa 5.2.2 START (PROGRAM INITIALIZATION) 
41 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 
42 TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 
= AND CONTROL REGISTER ADDRESSES OF THE DHi1 TO BE TESTED. 
Ps 3.2.3 BEGIN (PROGRAM START AND RESTART) 
47 THIS ROUTINE IS ENTERED IMMEDIATLY AFTER “START” 
48 ACH TIME A PROGRAM PASS HAS BEEN COMPL ; 
49 THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 
50 AND THEN TRANSFERS CONTROL TO THE TEST AT 
S1 TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERD 
52 TESTING WILL START AT T1 (TEST 1). IF SwOi=1 
53 THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC 
34 ENTERED FROM THE TELETYPE KEYBOARD. 











SEQ 6 
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oa 





EOP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 
HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS 
AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 


SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

A) IF SWi0=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
IN SE - AFTER CLEARING ERROR FLAGS. 

B) IF SWii=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 

C) IF SWi4*1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGARDLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 

TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE 
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER 
TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 


SCOPIR (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 

THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 
VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS. 

IF SWO9=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 
UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 
OPTION IS SELECTED, THE ROUTINE “SCOPER” IS NEVER ENTERED 
AND ITERATION COUNTS WILL NOT BE UPDATED. 
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5.2.7 


5.2.8 





ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 

WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLONMS: 
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 

INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 

USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 

DATA STORAGE LOCATIONS. 

IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 

DURING THIS PASS, A COMPLETE ERROR REPORT IS MADE 

IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SWi3=1, NO ERROR TYPEOUT IS MADE. 

C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SWiS=1 
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 

THE ERROR ROUTINE IN RO. IF SW15=0, THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 

IF SW10=0, THE ROUTINE WILL RETURN 

TO THE TEST IN PROGRESS. IF SWi0=1, THE ROUTINE WILL 
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT 

TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER’. 


TRPSRV (TRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 

THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL 
TO THE ROUTINE THRU THE TABLE “TRPTAB” USING THE 8 LSB 

OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 


Sd 


ed 


Ne 


SEQ 7 





CZDHE -CO 


O@xrntoueaunr 


= sn 


SEQ 8 
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5.3 
5.3.1 
5- B44 


5.3.1.2 


5.3.1.3 


5.3.1.4 


5.3.2 


5.3.3 


5.3.3.1 
5.3.3.2 


5.3.4 


5.3.5 


5.3.6 


3.3.7 





PROGRAM AND OR OPERATOR ACTION 

PROGRAM START WITH ALL SWITCHES DOWN 

REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
BEHAVIOR. 

AFTER “R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 
WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 
GF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 

WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM 
WILL TYPE “CZDHE-C” AND THEN RESTART TESTING AT TEST 1 
(LOCATION Ti IN THE PROGRAM). 


IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 


PROGRAM START WITH SWOO=1 

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
PROGRAM START WITH SWO1=1 

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 


TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 


AFTER “CZDHE-C” HAS BEEN TYPED, THE PROGRAM WILL 
RESUME TESTING AT TEST 1 


PROGRAM OPERATION WITH SWiS5=1 

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, 
THE PROGRAM WILL HALT AFTER THE ERROR TYPEOQUT, AND 

THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE 
DISPLAYED IN RO. 

PROGRAM OPERATION WITH SWi3=1 

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 
PROGRAM OPERATION WITH SW11=1 


Poi AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE 


PROGRAM OPERATION WITH SW10=1 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR 
THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM 
WILL PROCEED TO THE NEXT TEST IN SEQUENCE. 
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5.3.8 


6.1.1 


6.2 
6.2.1 


6.2.2 


6.2.3 





(CONT‘ D) 
PROGRAM OPERATION WITH SWi4=1, OR SWO09=1 


THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 
SEE SECTION 6.3 FOR THEIR USE. 


ERRORS 
ERROR HALTS 


THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 
IS AS FOLLOWS 


PC+2 MESSAGE 
HEADER CIF APPLICABLE) 
DATA CIF APPLICABLE) 


WHER. 

PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2 
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 

DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 
IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 

PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 

DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 


IF NO DATA IS ASSOCIATED WITH THE ERROR 
THE COMPLETE ERROR MESSAGE IS TYPED. 


ERROR DESCRIPTIONS 

SEE LISTING FOR DETAILS OF ERRORS 

ERROR RECOVERY 

SW1i5=0 

REQUIRED TO CONTINUE TESTING NO OPERATOT A“<iION IS 


IF THE PROGRAM IS RUN WITH SW15=1, TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED, PRESS THE PROCESSOR 
CONSOLE CONTINUE SWITCH 


ILLEGAL INTERRUPTS 


If AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT 
SELECTED DURING PROGRAM INITIALIZATION, THE PROGRAM WILL 
HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 

THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 

TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 
RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 








SEQ 10 
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1 
: 6.3 SCOPE LOOPING 
a 6.3.1 TO SCOPE ON A SPECIFIC TEST, SET SW14=1 AND SWi3=1 
5 THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE 
. SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 
8 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 
9 A TEST, SET SWO9=1 TO FREEZE THE DATA 

10 (SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 

11 

rf 6. CCONT‘D) 

os 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

1 

16 PERFORM SECTION 4.3.4 WITH SW14=1 

17 

rf 7. RESTRICTIONS 

20 7.1 STARTING 

21 

= THE DH11 TEST CARD MUST BE INSTALLED 

2 

24 7.2 RUNNING 

25 

pe NONE 

= 8. MISCELLANEOUS 

= 8.1 EXECUTION TIME 
1 

32 THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

33 TYPEOUT OF CZDHE-C TO END OF TYPEOUT OF CZDHE-C) 

. IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW 

36 : TIME 

. PROCESSOR 

= POP-11/05,10 

a PDP-11/20 

or PDP-11/40 

4 

45 POP-11/45 





Riicnas 
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9. PROGRAM DESCRIPTION 


THIS PROGRAM CONSISTS OF 64 (DECIMAL) TESTS 

THAT CHECK, IN INDIVIDUAL TEST LOOPS, CHARACTER LENGTH 
SELECTION FOR EACH LINE AT EACH LENGTH OF 5,6,7, OR 8 
BITS PER CHARACTER. 


A CHARACTER CODE OF 377 IS TRANSMITTED 
ON A EACH LINE 

AT 5.6,7, AND 8 BITS PER CHARACTER. THE RECEIVED CHARACTER 
IS CHECKED TO VERIFY THAT THE DATA IS CORRECT 

(A CODE OF 37, 77, 177, OR 377 IF THE LENGTH IS 5.6.7, OR 
8 BITS, RESPECTIVELY), AND THAT THE RECEIVED 

LINE NUMBER AND CHARACTER STATUS INFORMATION ARE CORRECT. 


10. LISTING 









0 
CLEAN END OF PASS 
MESSAGE . 
751 
752 


753 
TCH REGISTER” 
754 


SEQ 12 
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; DHMAC-A - DH11 MACRO LIBRARY 
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


-LIST ME 
-NLIST MC,MD,CND 


3 3 


; CMS REPLACEMENT HISTORY 


s #9 SKONETSKI 26-APR-1985 16:23:08 “FIXED TYPO CAUSING ASSEMBLY ERRORS” 
s #8 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED” 
; *7 SKONETSKI 22-APR-1985 16:26:04 “ADDED CODE TO SET VECTORS FOR PWR FAIL, ERRORS, AND EMT 


¢ #6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE” 
s #5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 


3 #4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTWARE SWITCH REG SUPPORT, BUT UNTESTED” 
s #3 SKONETSKI 12-APR-1985 10:34:52 “FIXED PROBLEMS WITH SPURIOUS CR/LFS” 
s #2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 


s #1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DHil DIAGNOSTICS” 





SEQ 13 
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é -LIST ME 

3 -NLIST »MD, CND 

5 000000 - HEADER +/1972, 1985/,+/DHi1 CHARACTER LENGTH AND BASIC DATA TEST/, t/CZDHE-CO/ 
sSTARTING PROCEDURE 
sLOAD PROGRAM 
sLOAD ADDRESS 000200 
sPRESS START 


sPROGRAM WILL TYPE DHi1 CHARACTER LENGTH AND BASIC DATA TEST 
sPROGRAM WILL TYPE “VECTOR ADDRESS-* 

sTYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

sFOR THE DHii TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 

sPROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-* 

sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

sFOR THE DOH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> : 3 
sPROGRAM WILL TYPE “R” TO INDICATE THAT TESTING HAS STARTED 

sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHE-CO 

sAND THEN RESUM TESTING 


-TITLE CZOHE-CO 


000000 -ENABLE ABS 
-NLIST MC.MD,CND 
-LIST ME 
6 000000 Ss 
sSWITCH REGISTER OPTIONS 
100000 $W15=100000 s*1,HALT ON ERROR 
040000 SW14=40000 3*1,LO0P ON CURRENT TEST 
SW13=20000 s*1, INHIBIT. ERROR TYPEOUT 
010000 SW12*10000 
SW11=4000 3*1, INHIBIT ITERATIONS 
002000 $W10=2000 s*1,ESCAPE TO NEXT TEST ON ERROR + 3 
001000 SW09=1000 3*1,LO0P WITH CURRENT DATA 
000400 SW08=400 
000100 SW06*100 
SWOS 
SW04=20 
000010 SW03=10 
000004 SWO2*4 
000002 SW01=2 sRESTART PROGRAM AT SELECTED TEST 
000001 SW00*1 sRESELECT VECTOR AND CONTROL REGISTER 


sADDRESS AFTER PROGRAM RESTART 


CZ0ME - CO 


1 000000 


r-— 
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177776 
017004 





; REGISTER 
sPROCESSOR STACK POINTER 
sPROGRAM COUNTER 


sLOCATION EQUIVALENCIES 


sSWR=177570 


sLIGHTS*177570 


PS*177776 


STACK=*ENDCOD +200 


sCONSOLE SWITCH REGISTER 
sPDP-11/45 DISPLAY REGISTER 
sPROCESSOR STATUS WORD 

sSTART OF PROCESSOR STACK 


sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 
POP1SP "5726 


BIT14=40000 





sDECREMENT PROCESSOR STACK 1 WORD 
sINCREMENT PROCESSOR STACK 1 WORD 
sSAVE RO ON STACK 

sRESTORE RO FROM STACK 


sDE STACK TWICE 
sINCREMENT STACK TWICE 
$A 
$A 


NE ee 


SEQ 14 
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000000 
000200 


000000 
000116 
000000 
000122 
000000 


000000 
000142 
000000 
000146 


enter 
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sTRAPCATCAER FOR ILLEGAL INTERRUPTS 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP 7’ THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


F SE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP be THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

s EXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 


SEQ 15 
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000000 
000316 
000000 


Ne 





sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP ¥ THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


FI SE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


TE AP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO ge o_o 


ACK FI 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


SEQ 16 


NS 





SEQ 17 
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000330 000332 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000332 900000 HALT sEXAMINE STACK TO FIND CAUSE 
000334 000336 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000336 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000340 000342 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000342 HALT sEXAMINE STACK TO FIND CAUSE 
000344 000346 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000346 HALT sEXAMINE STACK TO FIND CAUSE 
000350 000352 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000352 HALT sEXAMINE STACK TO FIND CAUSE 
000354 000356 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000356 HALT sEXAMINE STACK TO FIND CAUSE 
000360 000362 -*2 sUNEXPECTED TRAP TO THIS LOCATION 
000362 HALT sEXAMINE STACK TO FIND CAUSE 
000364 000366 +2 UNEXPECTED TRAP TO THIS LOCATION 
000366 HALT sEXAMINE STACK TO FIND CAUSE 
000370 000372 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000372 HALT sEXAMINE STACK TO FIND CAUSE 
000374 000376 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000376 HALT sEXAMINE STACK TO FIND CAUSE 
0004 000402 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000402 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000404 000406 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
0C0406 HALT sEXAMINE STACK TO FIND CAUSE 
000410 000412 +2 sUNEXPECTED TRAP i THIS LOCATION 
000412 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000414 000416 +2 sUNEXPECTED TRAP Y THIS LOCATION 
000416 HALT _ sEXAMINE STACK TO FIND CAUSE 
000420 000422 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000422 HALT sEXAMINE STACK TO FIND CAUSE 
000424 000426 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000426 HALT sEXAMINE STACK TO 
000430 000432 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000432 HALT sEXAMINE STACK TO FIND CAUSE 
000434 000436 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000436 000000 HALT sEXAMINE STACK TO F 
000440 000442 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000442 000000 HALT sEXAMINE STACK TO F 
000444 000446 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000446 000000 HALT sEXAMINE STACK TO F 
000450 000452 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000452 HALT sEXAMINE STACK TO FIND 
000454 000456 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000456 000000 HALT sEXAMINE STACK TO FIND 
000460 000462 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000462 T sEXAMINE STACK TO 
000464 000466 -*2 sUNEXPECTED TRAP b THIS LOCATION 
000466 HALT sEXAMINE STACK TO F 
000470 000472 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000472 HALT sEXAMINE STACK TO 
000474 000476 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000476 HALT sEXAMINE STACK TO FI SE 
000502 -¢ sUNEXPECTED TRAP TO THIS LOCATION 
000502 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000506 +2 s;UNEXPECTED TRAP TO THIS LOCATION 
000600 HALT sEXAMINE STACK TO FIND CAUSE 
000510 000512 +2 sUNEXPECTED TRAP TO THIS LOCATION 


- 





-— 
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sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


USE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


FIND 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP : THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


Cc 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 





SEQ 18 





CZOHE -CO 


‘2 


0006 76 
000000 


000000 
000742 
000000 


000000 
000772 
000000 
000776 
000000 


- SETVEC 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


FI SE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


F 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
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SEQ 19 








rN 


SEQ 20 
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0 sSTANDARD INTERRUPT VECTORS 
000200 .-=200 
000200 000167 000600 JMP START ;GO0 TO START OF PROGRAM 
1 000204 . TRPDEF 
;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB“ 
000204 TRPDEF SCOPE, aoe LOOP AND ITERATION HANDLER/ 
104400 SCOPE=TRAP sSCOPE LOOP AND ITERATION HANDLER 
000001 Y=Yel 
000204 TRPDEF TYPE,t/TELETYPE OUTPUT ROUTINE/ 
104401 — sTELETYPE OUTPUT ROUTINE 
27 4 
000204 TRPDEF OCTASC, ac TO ASCII CONVERSION/ 
104402 OCTASC=TRAP P+Y sOCTAL TO ASCII CONVERSION 
000003 Y=¥el 
000204 TRPDEF INSTR,?t/INPUT ASCII STRING/ 
104403 oe sINPUT ASCII STRING 
sj ¢ 
000204 TRPDEF INSTER,*/STRING INPUT ERROR/ 
104404 = sSTRING INPUT ERROR 
sY+ 
000204 TRPDEF PARAM, —e STRING TO OCTAL, CHECK LIMITS/ 
104405 PARAM= TRAP sCONVERT STRING TO OCTAL, CHECK LIMITS 
sy ¢ 
000204 TRPDEF SAVOSP,t/SAVE RO-RS, PC/ 
104406 SAVOSP=TRAP+Y sSAVE RO-RS, PC 
000007 Ye¥el 
000204 TRPDEF RESOS,t/RESTORE RO-RS/ 
104407 RESOS5=TRAP +Y sRESTORE RO-RS 
000010 Y*V¥el 
000204 TRPDEF SCOPE1,*/CHECK FOR FREEZE ON CURRENT DATA/ 
104410 SCOPE1=TRAP+Y sCHECK FOR FREEZE ON CURRENT DATA 
000011 YeYel 
2 246 
3 000046 014456 LOGICAL 
4 000052 .-*52 
5 000052 040000 40000 
6 -MACRO CODEM1 
7 MOV DHSSR , DHSLR ;SET UP ADDRESS OF SILO 
8 INC DHSLR sSTATUS REGISTER HIGH BYTE 
9 -ENDOM  CODEM1 
10 000054 ~START DHRVEC,.3.4,DHSCR,O,177776,7,10,,.1 


o- 
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001000 


177570 
177570 


012767 
0127 


005067 


014570 


176670 


177650 


-*1000 


-LIF NB 
-TIF NB 


SUR: ‘ 

LIGHTS: . 

000340 176764 START: 
004 


2$: 
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PROGRAM INITIALIZATION 

sLOCK OUT INTERRUPTS 

sSET UP PROCESSOR STACK 

sSET UP POWER FAIL VECTOR 

;CLEAR PROGRAM FLAGS AND COUNTS 
sTYPE TITLE MESSAGE 

<>, sDETERMINE MEMORY SIZE 
<>, sSET UP TRACE TRAP RETURN 


WORD 177570 ; SWITCH DHSCR ADDRESS 

WORD 177570 ; LIGHTS 

MOV 340,PS sLOCK OUT INTERRUPTS 
MOV @STACK, SP ;SET UP PROCESSOR STACK 
MOV $24 ,R2 ; POINT TO VECTOR AREA 

MOV OPFAIL, CR2)-+ ;SET UP POWER FAIL TRAP 

MOV #340, (R2)s sSERVICE AT LEVEL 7 

MOV @ERRORS, CR2)+ sERROR HANDLER 

MOV #340, (R2)+ sSERVICE AT LEVEL 7 

MOV @TRPSRV, CR2)- ;GENERAL HANDLER “en SERVICE 
MOV #340, (R2) sSERVICE AT LEVEL 

CLR STFLG ;CLEAR TEST START FLAG 

CLR PASCNT ;CLEAR PASS COUNT 

CLR ERRCNT ;CLEAR ERROR COUNT 

CLR ERRFLG ;CLEAR ERROR FLAG 

CLR ERRFLG ;CLEAR LAST ERROR PC 

MOV 4, -CSP) ; PUSH TRAP VECTOR 

MOV 6, -(SP) 

MOV #1$, 4 ; SET UP TRAP VECTOR 

TST QSWR ; TEST SWITCH REGISTER ADDRESS 
BR 2$ ; IF SUCCESSFUL, LEAVE IT ALONE 
MOV #176, SWR ; POINT TO SOFT SWITCH DHSCR 
CLR LIGHTS ; © MEANS WE ARE NOT GOING TO USE 
TST (SP)+ ; CLEAN UP STACK 

TST CSP )+ 

MOV CSP)+, 6 

MOV (SP)+, 4 

TYPE MTITLE ;TYPE TITLE MESSAGE 

TST INIFLG ;CHECK INITIALIZATION FLAG 
<DHRVEC> 

BNE VECi sIF NOT 0, CHECK SWITCHES 

sFOR REINITIALIZATION 

BNE BEGIN sIF NOT 0, START TEST 

<> 

CLR 

MOV 923,304 ;SET UP TIME OUT RETURN 

TST CRO)+ ;WILL TRAP WHEN NO MEMORY 

BR i$ sLOCATION RESPONDED, CONTINUE 
MOV RO ,HCORE sRO CONTAINS SS OF 

og on sNON EXISTANT MEMORY 

V ° 


sRESTORE TRAPCATCHER 





SEQ 21 


beh 


ee ee oF Ge GF Ge oe 
Se i i 


ee we ee ce oe fos os oe oe oe oF oe 
— 
POPSHSMOSSSOSOSS 





TS ; 4 


CZDHE -CO 


i. 


001162 
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000404 


032777 
001445 


012701 


016767 
005267 


005767 
001002 
005167 


001000 


014406 
014402 


014450 
014442 


014406 
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MOV $1,810 
SXT RO 
MOV RTT, TRIRET 
BR 2s 
MOV RTI, TRIRET 
MOV #12,8¢10 
MOV #TRTRET, 8016 
<DHRVEC> 
<> 
BR VEC2 
TST INIFLG 
BEQ vVEC2 
BIT #SW00, 8SWR 
BEQ BEGIN 
MOV #300 ,R1 
MOV #302 ,R2 
MOV 04 RS 
MOV R2,(R1) 
CLR R2) 
ADD R3,R1 
ADD R3 ,R2 
CMP Ri, #1000 
BNE 
INSTR 
ri 
300 
770 
DHRVEC 
3 
4 
INSTR 
oe 
177776 

R 
7 
10 
<i> 
MOV OMSSR,.OHSLR 
INC # 
TST INIFLG 
BNE BEGIN 
COM INIFLG 
:PROGRAM START 


sCHECK FOR PROGRAM START AT SELECTED ADDRESS 





SEQ 22 


sSET UP ILLEGAL INSTRUCTION TRAP RETURN 
sDO 11740, 11/45 INSTRUCTION 
311/40,45 RTT RETURN FRUM TRACE TRAP 


:1105,10,20 RTI RETURN FROM TRACE TRAP 
sRESTROE TRAPCATCHE 
;SET UP TRACE TRAP VECTOR 


;IF INITIALIZE FLAG=0 
sGET VECTOR AND CSR ADDRESS 


;IF SWOO=1, GET NEW VECTOR ; 
;AND CSR 


sRESTORE TRAPCATCHER 
sIN FLOATING VECTOR AREA 


sINPUT ADDRESS OF DEVICE VECTOR 
sMESSAGE “VECTOR ADDRESS-” 

sCONVERT STRING TO OCTAL 

sLOW LIMIT 

sHIGH LIMIT ; 3 
sLOCATIONS TO BE FILLED 

sNUMBER OF LOCATIONS 

;LSB MASK 

;INPUT ADDRESS OF DEVICE CSR 
sMESSAGE “CONTROL REGISTER ADDRESS-” 
sCONVERT STRING TO OCTAL 

sLOW LIMIT 

sHIGH LIMIT 

sLOCATIONS TO BE FILLED 

sNUMBER OF LOCATIONS 

;LSB MASK 


sSET UP ADDRESS OF SILO 
sSTATUS REGISTER HIGH BYTE 


sIF INITIALIZATION FLAG 
:IS CLEARED 
sSET IT 





oa 
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012767 000340 176462 SEGIN: MOV #340 ,PS sLOCK OUT INTERRUPTS 
012706 017004 MOV @STACK ,SP sSET UP PROCESSOR STACK 
032777 000002 177452 BIT @SWO01, @SWR sIF SWO1=1 
001410 BEQ 1$ sGET PC FOR PROGRAM START 
0440 INSTR :;GET PC 
016421 MTSTPC sMESSAGE “TEST PC” 
104405 PARAM sCONVERT STRING TO OCTAL 
017 17500 
015716 RETRN 

001 ave 60 

001 -BYTE 1 
000410 BR $ 
012767 001400 014340 1%: MO #T1,RETRN sNORMAL START, TEST 1 
yoo a4 014370 ST a ;IF LOOPING, BYPASS TYPEOUT 
005167 014362 COM STFLG 
104401 016415 2s: TYPE oMR sTYPE "R” TO INDICATE START 
000177 014316 3$: JMP SRETRN sSTART TESTING 





eens 


SEQ 23 








SEQ 24 
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é 000020 XL INE =LINEX 
3 000000 XBIT=BITX 
6 XLENGTH=LENGTX 
5 000011 CLENGTH=LENGTC 
6 000777 CODEX=xC 
7 107777 RDATA=DATAR 
8 LINEX=0 
9 000001 BITX=1 
11 000020 -REPT 20 
12 -NLIST 
13 LENGTX=0 
14 LENGTC=5 
15 XCODE=37 
16 -LIST 
17 -REPT 4 
18 -NLIST 
= Seay neaee. 2000O-NCORE 
= yet \LINEX, \BITX, \LENGTX, \LENGTC , \XCODE, \DATAR 
23 LENGTX*LENGTX+1 
24 LENGTC=LENGTC+1 
25 XCODE=XCODE*2+1 
26 -LIST 
27 . 
28 -NLIST 
29 LINEX=*LINEX+1 
30 BITX=BITX+BITX 
31 -LIST 
32 -ENDR 
000000 LENGTX=0 
000005 LENGTC=5 
000037 XCODE=37 
000004 REPT 4 
-NLIST 
a eee 100000 + XCODE 
yg \LINEX , \BITX, \LENGTX, \LENGTC , \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+ 
-LIST 
-ENOR 
100037 DCATAR=LINEX*#400+ 100000 +XCODE 
001400 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
cor a ly LINE 0 





1 CHARACTER ON 
ER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
SPEED IS 9600 BAUD 


sLINE 
001400 TS \XN,400,28 
001400 012767 000340 176370 Ti: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
001406 012767 000400 014310 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
001414 012767 001526 014276 MOV 2%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 








CZDHE -CO 


001530 
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SEQ 25 









IF NB <> 
M0 #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeo1 
012777 014226 MOV #61T11.8DHSCR sMASTER CLEAR INTERFACE 
012767 000037 014320 MOV #37, TDATA sCHARACTER TO BE TRANSMITTED = 37( OCTAL) 
012777 014212 MOV 40 ,B@DHSCR sSELECT LINE 0 
012777 177777 014214 MOV #-1i, sSET UP TO TRANSMIT 1 BYTE 
012777 015756 014204 MOV S®TDATA,.@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
012777 033500 014174 MOV #33500 , BDHLPR sSET LINE SPEED FOR 9600 BAUD 
000000 014166 BIS » 8OHLPR 3SET CHARACTER LENGTH FOR 5 BITS 
012777 000001 014166 MOV #1, 8DHBAR sSTART TRANSMITT 
105777 014150 1%: TSTB SDHSCR sWAIT TO RECEIVE CHARACTER 
100375 BPL i$ 
017704 014144 MOV SDHNRC .R4 3(P4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
012705 100037 MoV #100037 ,R5 sCRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
020504 CMP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
001401 BEQ 2s 
HLT sCHARACTER LENGTH, DATA 
104000 EMT 
30R LINE NUMBER ERROR 
104400 2s: 
000001 LENGTX=LENGTX+1 
000006 LENGTC*LENGTC+1 
000077 XCODE=XCODEs2+1 
100077 DATAR=LINEX#400+ 100000 + XCODE 
CHARTL \LINEX,\BITX,\LENGTX,\LENGTC » \XCODE , \DATAR 
CHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 0 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,28 
012767 000340 176240 fT2: MOV 0340 ,PS sDISABLE ALL INTERRUPT 
012767 000400 014160 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
012767 001656 014146 — MOV @23 , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN#=XNol 
012777 014076 MoV sMASTER CLEAR INTERFACE 
012767 000077 014170 MOV sCHARACTER TO BE TRAMSMITTED = 77(OCTAL) 
012777 014062 MOV sSELECT LINE 0 
012777 177777 014064 MOV sSET UP TO TRANSMIT 1 BYTE 
0127 015756 014054 MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
012777 033500 014044 MOV sSET LINE SPEED FOR 9600 BAUD 
0527 000001 014036 BIS sSET CHARACTER LENGTH FOR 6 BITS 
012777 000001 014036 MOV sSTART TRANSMITTER 
pp 014020 i$: dg sWAIT TO RECEIVE CHARACTER 
017704 014014 MOV 3:(R4)=RECEIVED CHARACTER 
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sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BY TE 
001644 012705 100077 MOV #100077 ,RS sCRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
: STATUS IN HIGH BYTE 
001650 020504 CHP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
001652 001401 BEG 23 
001654 HLT sCHARACTER LENGTH, DATA 
001654 104000 EMT 
sOR LINE NUMBER ERROR 
001656 104400 23: SCOPE 
000002 LENGTX*LENGTX+1 
000007 LENGTC=LENGTC+1 
000177 XCODE=XCODEs2+1 
100177 DATAR=LINEX*#400+ 100000 + XCODE 
001660 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC,\XCODE, \DATAR 
sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
001660 TS \XN,400,2$ 
001660 012767 000340 176110 T3: MOV sDISABLE ALL INTERRUPTS 
1666 012767 000400 014030 sSET UP FOR 400 ITERATIONS 
001674 012767 002006 014016 7 sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA s 3 
-ENDC 
XN=XNeo1 
013746 sMASTER CLEAR INTERFACE 
000177 01 sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
000000 013732 sSELECT LINE 0 
177777 013734 :SET UP TO TRANSMIT 1 BYTE 
015756 0137 sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
3500 013714 SET LINE SPEED FOR 9600 BAUD 
137 sSET LENGTH FOR 7 BITS 
000001 013706 :START TRANSMITTER 
013670 sWAIT TO RECEIVE CHARACTER 
013664 3 (R4 @RECEIVED 
IN LOW 
100177 


BYTE 
EXPECTED AND RECEIVED DATA THE SAME 
sCHARACTER LENGTH, DATA 
sOR LINE NUMBER 


or 


002010 
002010 
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002136 


175760 
013700 
013666 








SEQ 27 
CHARTI \LIMEX.\BITX, \LENGTX. \LENGTC. \XCODE. \DATAR 
sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 0 
sCHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS BAUD 
TS \XN,400.2$% 
4: MOV @340.PS sDISABLE ALL INTERRUPTS 
MOV @400 , ICOUNT sSET UP FOR 400 ITERATIONS 
_— MOV @2% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
F <> 
MOV ®,FREEZ1 3SET UP TO LOOP WITH DATA ; 3 
XN=XNol 
MOV @81IT11,8DHSCR aMASTER CLEAR INTERFACE 
MOV _* gCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
MOV SELECT LINE 0 
MOV .. 4SET UP TO TRANSMIT 1 BYTE 
MOV ~~ “3SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV sSET LINE SPEED FOR 9600 BAUD 
BIS sSET CHARACTER LENGTH FOR 10 BITS 
MOV sSTART TRANSMITTER 
1%: Mt dig sWAIT TO RECEIVE CHARACTER 
MOV 3;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #100377,R5 sCRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
oo ne sARE EXPECTED AND RECEIVED DATA THE SAME 
a sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX*LENGTX+1 
LENGTC*LENGTC+1 
XCODE =XCODEs2+1 
LINEX=LINEX+1 
BITX*BITX+BITX 
LENGTX=0 
LENGTC=5 
XCODE=37 
REPT 4 


-NLIST 
ee 100000 + XCODE 


CHARTS \LINEX , \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 

LENGTC=LENGTC+1 

XCODE=XCODE*#2+1 

LIST 


-ENDR 


a 





r-— 


002270 


002270 
002270 
002276 
002304 
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100437 DATAR=LINEX*400+ 100000+XCODE 
CHART1 \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
STRANSHIT 1 CHARACTER ON LINE 1 
;CHARACTER LENGTH IS S BITS 
EXPECTED RECEIVED CHARACTER IS 37 
;LINE SPEED IS 9600 BAUD 
TS \XN,400.28 
012767 000340 175630 TS: MOV © @340.,PS DISABLE ALL INTERRUPTS 
012767 000400 013550 MOV —«- @400., ICOUNT SET UP FOR 400 ITERATIONS 
012767 002266 013536 e ESCAPE SET UP TO ESCAPE TO NEXT TEST 
» <> 
MOV —s- @ FREEZ1 SET UP TO LOOP WITH DATA _ 
.ENDC 
XN=XNeol 
012777 004000 013466 MOV -—«- @BIT11. ADHSCR sMASTER CLEAR INTERFACE 
012767 000037 013560 MOV -—=«-@37, TDATA sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
012777 1 013452 MOV = @1,, BDHSCR SELECT LINE 1 
012777 177777 013454 MOV = @-1, BDHBC ;SET UP TO TRANSMIT 1 BYTE 
012777 015756 013444 MOV —«s-@TDATA. @DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
012777 033500 013434 MOV - @33500@DHLPR SET LINE SPEED FOR 9600 BAUD 
052777 013426 BIS  § @0,8DHLPR sSET CHARACTER LENGTH FOR S BITS 
012777 013426 MOV  @2.. BDHBAR START TRANSMITTER 
105777 013410 1s: TSTB  @DHSCR sWAIT TO RECEIVE CHARACTER 
100375 BPL ig 
017704 013404 MOV « @DHNRC..R4 ;(R4)=RECEIVED CHARACTER 
IN LOW BYTE, AND LINE NUMBER AND 
;CHARACTER STATUS IN HIGH BYTE 
012705 100437 MOV —«- @100437,R5 :(R5)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
020504 CHP séRSRG s;ARE EXPECTED AND RECEIVED DATA THE SAME 
001401 BEQStisé2’ 
HLT ;CHARACTER LENGTH, DATA 
104000 EMT 
;OR LINE NUMBER ERROR 
104400 2$: SCOPE 
000001 LENGTX*LENGTX+1 
000006 LENGTC=LENGTC+1 
000077 XCODE=XCODE#2+1 
100477 DATAR=LINEX#400-+100000+XCODE 
CHART1 \LINEX, \BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
;TRANSMIT 1 CHARACTER ON LINE 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
TS \XN, 400,29 
012767 000340 175500 Te: MOV -@340.,PS ;DISABLE ALL INTERRUPTS 
012767 000400 013420 MOV —«-@400, ICOUNT SET UP FOR 400 ITERATIONS 
012767 002416 013406 im OY Me ESCAPE SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV = @, FREEZ1 ;SET UP TO LOOP WITH DATA 2 





-— 


002420 
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012767 
012767 
012767 


000002 
013130 
013124 


175350 
013270 
013256 


013206 
013300 
013172 
013174 
013164 
013154 
013146 
013146 
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-ENDC 
XN=XNeol 
MOV #681T11,8DHSCR 
MOV 477, TDATA 
MOV 41 ,8DHSCR 
MOV #-1,8DHBC 
MOV @TDATA,8DHBA 
MOV #33500, @DHLPR 
BIS #1 ,8DHLPR 
V 2. 8D0HBAR 
1s: TSTB 8DHSCR 
BPL $ 
MOV SDHNRC ,R4 
MOV #100477,R5 
CMP RS .R4 
BEQ 2$ 
HLT 
EMT 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 + XCODE 
CHART1 


IF NB 
-ENOC 


XN=XNeol 


1%: 


Sn eS sles sssnnnenneeneneneneneeneneeeeeneeereeneecees, 


SEQ 29 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
sSELECT LINE 1 

;SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 6 BITS 

sSTART TRANSMITTE 

sWAIT TO RECEIVE CHARACTER 


:(R4)=RECEIVED CHARACTER 

;IN LOW BYTE, AND LINE NUMBER 

sCHARACTER STATUS IN HIGH BYTE 
;(RS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


\LINEX , \BITX, \LENGTX, \LENGTC,, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 


sTRANSMIT 1 CHARACTER ON LINE 1 
sCHARACTER LENGTH IS 7 BITS 


sEXPECTED RECEIVED CHARACTER IS 177 


sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T7: MOV 


#340 ,,PS 
MOV #400, ICOUNT 
MOV 62% , ESCAPE 


MOV @,FREEZ1 


MOV #6IT11,@DHSCR 
MOV #177, TDATA 
#1, 90HSCR 


BIS #2 ,,8DHLP 
MOV #2 , BDHBAR 
TSTB CR 

L 1$ 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
sSELECT LINE 1 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 7 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 





—— 


002550 
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012705 100577 


012767 
012767 
012767 


013000 
012774 


100777 


MOV #100577,R5 


CMP RS ,R4 
BEQ 2$ 
HLT 
EMT 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000 +XCODE 
CHARTi \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 1 
sCHARACTER LENGTH IS 10 BITS 


SEQ 30 


;CRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sEXPECTED RECEIVED CHARACTER IS 377 


sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T10: MOV 


MOV #2$ ESCAPE 


-IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNeol 
MOV $B IT11.,8DHSCR 
MOV #377, TDATA 
MOV #1,8DHSCR 
MOV #-1,@8DHBC 
MOV @TDATA,@DHBA 
MOV #33500 , BDHLPR 
BIS #3 ,SDHLPR 
Vv #2 ,8DHBAR 
i$: TSTB SDHSCR 
BPL 1$ 
MOV SDHNRC .R4 
MOV $100777,R5S 
CMP RS .R4 
BEQ 2$ 
HLT 
EMT 
2$: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=LINEX+i © 
BITX=BITX+BITX 
LENGTX=0 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
sSELECT LINE 1 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 10 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


3(R4)=RECEIVED CHARACTER 

;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
sCRS)=*EXPECTED CHARACTER ate LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 
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000005 LENGTC=5 
000037 XCODE=37 
000004 "REPT 4 
"NLIST 
ae =_LINEX#400+ 100000+XCODE 
CHARTL \LINEX,\BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE#2+1 
‘LIST 
"ENDR 
101037 DATAR=LINEX*#400+100000+XCODE 
002700 CHART1 \LINEX, \BITX, \LENGTX, \LENGTC. \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
;TRANSMIT 1 CHARACTER ON LINE 2 
;CHARACTER LENGTH IS 5S BITS 
EXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
002700 TS \XN,400,2$ 
062700 012767 000340 175070 Til: MOV  6340.PS ;DISABLE ALL INTERRUPTS 
002706 012767 000400 013010 MOV «#400 TCOUNT sSET UP FOR 400 ITERATIONS 
002714 012767 003026 012776 ire “OY #28. ESCaPE ;SET UP TO ESCAPE TO NEXT TEST 
“ <> 
cwoc | TOM MeFREEZA ;SET UP TO LOOP WITH DATA 2 
000012 XN©XNe 1 
002722 012777 004000 012726 MOV —« @BIT11., @DHSCR sMASTER CLEAR INTERFACE 
002730 012767 000037 013020 MOV —«-@37, TOATA CHARACTER TO BE TRANSMITTED = 37(OCTAL) 
002736 012777 000002 012712 MOV «#2, BDHSCR SELECT LINE 2 
002744 012777 177777 012714 MOV = @-:1, BDHBC ;SET UP TO TRANSMIT 1 BYTE 
002752 012777 015756 012704 MOV —«s @TDATA. @DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
002760 012777 033500 012674 YOY «#33500 @DHLPR :SET LINE SPEED FOR 9600 BAUD 
002766 052777 000000 012666 BIS 40, @DHLPR sSET CHARACTER LENGTH FOR S BITS 
002774 012777 000004 012666 MOV 94. @DHB ;START TRANSMITTER 
003002 105777 012650 1s: TST8 - @DHSCR ;WAIT TO RECEIVE CHARACTER 
003006 100375 ePLsi 
003010 017704 012644 MOV —s DHNRC..R4 ;CR4)*RECEIVED CHARACTER 


;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
0035014 012705 101037 MOV #101037,R5 ;(RS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
; STATUS IN HIGH BYTE 


003020 020504 CMP RS ,R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
003022 001401 BEQ es 

003024 HLT sCHARACTER LENGTH, DATA 

003024 104000 EMT 


;OR LINE NUMBER ERROR 


003026 104400 2s: SCOPE 
000001 LENGTX*LENGTX+1 
000006 LENGTC*LENGTC+1 
000077 XCODE=XCODE#2+1 
101077 DATAR=LINEX#400+ 100000 +XCODE 
003030 CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 
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000177 
101177 


012767 
012767 
012767 


000014 


000340 
000400 
003156 


101077 


000340 174610 
000400 012530 
003306 012516 





SEQ 32 
sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 2 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T12: MOV #340 ,.PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
~— MOV 2%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNe1 
MOV #61T11,@DHSCR sMASTER CLEAR INTERFACE 
MOV #77, TDATA sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
MOV #2 ,8DHSCR sSELECT LINE 2 
MOV #-1,@DHBC sSET UP TO TRANSMIT 1 BYTE 
MOV #TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS #1, R sSET CHARACTER LENGTH FOR 6 BITS 
MOV as, R sSTART TRANSMITTER 
i$: hi ag sWAIT TO RECEIVE CHARACTER 
MOV @DHNRC ,R4 ;CR4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #101077,R5 sCRS)=*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYT 
ri — sARE EXPECTED AND RECEIVED DATA THE SAME 
a sCHARACTER LENGTH, DATA 
om ;0R LINE NUMBER ERROR 
LENGTX=LENGTXe2 
LENGTC*LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000+XCODE 
\LINEX, \BITX, \LENGTX, \LENGTC , \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 2 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 


T1i3: MOV #340 ,PS 
MOV #400 , ICOUNT 
ESCAPE 


MOV #23, 
IF NB <> 

MOV @,FREEZ1 
-ENOC 
XN=XNel1 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 
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003202 012777 012446 MOV  —«@BIT11. BDHSCR ;MASTER CLEAR INTERFACE 
003210 012767 000177 012540 MOV «#177. TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
003216 012777 012432 HOV “@DHSCR ;SELECT LINE 2 
003224 012777 177777 012434 MOV «@- 1, BDHBC ‘SET UP TO TRANSMIT 1 BYTE 
012777 015756 012424 MOV «TATA. SDHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
003240 012777 033500 012614 MOV «#33500 {SDHLPR sSET LINE SPEED FOR 9600 BAUD 
003246 000002 012406 BIS #2. BDHLPR SSET CHARACTER LENGTH FOR 7 BITS 
012777 000004 012406 MOV «04. @DHBAR SSTART TRANSMITT 
003262 105777 012370 i$: STB  SDHSCR ‘WAIT TO RECEIVE CHARACTER 
003266 100375 BPLtiéAS 
003270 017704 012364 MOV «sa SDHINRC..R4 ;CR4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
;CHARACTER STATUS IN HIGH BYT 
003274 012705 101177 MOV —«-@101177.RS ;(R5S)=EXPECTED CHARACTER IN LOW BYTE 
SAND LINE NUMBER AND CHARA 
:STATUS IN HIGH BYTE 
003300 020504 CHP sé. RG sARE EXPECTED AND RECEIVED DATA THE SAME 
003302 001401 BEQtiéids 
003304 HLT ;CHARACTER LENGTH, DATA 
003304 104000 EMT 
;OR LINE NUMBER ERROR 
003306 104400 2%: «SCOPE 
000003 LENGTX=LENGTX+1 
000010 LENGTC=LENGTC+1 
000377 XCODE=XCODE*2+ 
101377 DATAR=LINEX#400+ 100000+XCODE 
003310 CHART1 \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
s;CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 2 
CHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
;LINE SPEED IS 9600 BAUD 
003310 TS \XN, 400,29 
003310 012767 000340 174460 Ti4: | MOV #340.PS ;DISABLE ALL INTERRUPTS 
003316 012767 000400 012400 MOV —«-@400, TCOUNT sSET UP FOR 400 ITERATIONS 
003324 012767 003436 012366 ifm MOY (a2 ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
emo | OY FREEZA sSET UP TO LOOP WITH DATA +3 
XN=XNeol 
003332 012777 012316 MOV -«- @BIT11., @DHSCR ;MASTER CLEAR INTERFACE 
003340 012767 000377 012410 MOV —«-@377, TOATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
003346 012777 012302 MOV #2, @OHSCR sSELECT LINE 2 
003354 012777 177777 012304 MOV «6-1, BOMB ;SET UP TO TRANSMIT 1 BYTE 
003362 012777 015756 012274 MOV —s@TDATA. @DMBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
003370 012777 033500 012264 #33500. sSET LINE SPEED FOR 9600 B 
003376 052777 012256 BIS _—s 03, sSET CHARACTER LENGTH FOR 10 BITS 
3404 012777 012256 ee SSTART TRANSMITT 
003412 105777 012240 1¢: —*TSTB HIATT. TO RECEIVE. CHARACTER 
003416 100375 18 
003420 017704 012234 MOV —sSOHNRC.R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
;CHARACTER STATUS IN HIGH BYTE 
003424 012705 101377 MOV. -—s- @101377,R5 ;CRS)=EXPECTED CHARACTER IN LOW BYTE 
AND LINE NUMBER AND CHARACTER 














CZDHE -Co MACRO VO4.00 27-JUN-85 12:56:29 PAGE 19-10 =a & 
;STATUS IN HIGH BYTE 
003430 020504 CHP séRSGRA ARE EXPECTED AND RECEIVED DATA THE SAME 
003432 001401 BEQStsi’S 
003434 HLT sCHARACTER LENGTH, DATA 
003434 104000 EMT 
;OR LINE NUMBER ERROR 
003436 104400 2s: SCOPE 
000004 LENGTX*LENGTX+1 
000011 LENGTC=LENGTC+1 
000777 XCODE=XCODE#2+1 
000003 LINEX*LINEX+1 
000010 BITX=BITX+BITX 
000000 LENGTX=0 
000005 LENGTC=5 
000037 XCODE= 37 
‘REPT 4 
“NLIST 
DATAR@LINEX#400+ 100000+XCODE 
CHART \LINEX,, \BITX , \LENGTX, \LENGTC, \XCODE, \DATAR . 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE#2+1 
LIST 
“ENDR 
101437 DATAR=LINEX#400+ 100000+XCODE 
003440 CHART1 \LINEX,\BITX, \LENGTX, \LENGTC, \XCODE, \DAT tr 
;CHARACTER LENGTH TEST 
TRANSMIT 1 CHARACTER ON LINE 3 
;CHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
003440 TS \XN,400,28 
003440 012767 000340 174330 115: | MoV #340,PS ;DISABLE ALL INTERRUPTS 
003446 012767 000400 01 MOV 0400, ICOUNT ;SET UP FOR 400 ITERATIONS 
003454 012767 003566 012236 Oe 02%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
= <> 
ic @,FREEZi ;SET UP TO LOOP WITH DATA 13 
000016 XN=XNo1 
003462 012777 004000 012166 MOV #81111, 8DHSCR sMASTER CLEAR INTERFACE 
003470 012767 000037 012260 MOV #37, TOATA ;CHARACTER TO BE TRANSMITTED = 37(OCTAL) 
003476 012777 000003 012152 MOV | ;SELECT | TNE 3 
003504 012777 177777 012154 MOV ;SET UP 1. TRANSMIT 1 BYTE 
003512 012777 015756 012144 MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
003520 012777 033500 012134 MOV ;SET LINE SPEED FOR 9600 BAUD 
003526 052777 000000 012126 BIS sSET CHARACTER LENGTH FOR 5 BITS 
3534 012777 000010 012126 MOV #10, SOHBAR ;START TRANSMITTER 
003542 105777 012110 - i$: TSTB @DHSCR sWAIT TO RECEIVE CHARACTER 
003546 100375 3 BPL i$ 
003550 017704 012104 MOV SOHNRC .R4 :(R4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
| sCHARACTER STATUS IN HIGH BYTE 
003554 012705 101437 MOV #101437,R5 :(R5)=EXPECTED CHARACTER IN LOW BYTE 





‘- 


003570 


003720 
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000077 
101477 


012767 
012767 
012767 


012705 
020504 
001401 
104000 


7 
101577 


101477 


011776 
011776 


CMP RS.R4 
BEQ 2s 
HLT 
EMT 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000+XCODE 
CHART1 


a 


SEQ 35 


sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 
sCHARACTER LENGTH, DATA 


;OR LINE NUMBER ERROR 


\LINEX, \BITX, \LENGTX , \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 3 
sCHARACTER LENGTH IS 6 BI 


sEXPECTED RECEIVED CHARACTER IS 77 


sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T16: MOV #340 ,PS 
MOV $400 , ICOUNT 
MOV @2° ESCAPE 
-IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNeo1l 
MOV #681IT11,8DHSCR 
MOV #77, TDATA 
MOV #3 ,@DHSCR 
MOV 4-1, @DHBC 
MOV STOATA,S0HBA 
MOV #33500 , BDHLPR 
BIS #1 ,30HLPR 
MOV #10, @DHBAR 
1%: TSTB SOHSCR 
BPL i$ 
MOV SDHNRC ,R4 
MOV #101477 ,R5 
CMP RS .R4 
BEQ 2s 
HLT 
EMT 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 


CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 
sCHARACTER LENGTH TEST 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
sSELECT LINE 3 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 6 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


s(R4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
:(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
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012767 
012767 
012767 


0003 
101777 


012767 
012767 
012767 


000021 
012777 
012767 


000340 


011624 


101577 


004000 
000377 


173720 


s TRANSMIT 1 CHARACTER ON LINE 3 
sCHARACTER LENGTH IS 7 BITS 


sEXPECTED RECEIVED CHARACTER IS 177 


sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T1i?: MOV $340 ,PS 
MOV #400 , ICOUNT 
MOV $23 ,ESCAPE 
-IF NB <> 
MOV #,FREEZi 
-ENDC 
XN=XNeo1 
MOV #81IT11,8DHSCR 
MOV #177, TDATA 
MOV #3 ,8DHSCR 
MOV #-1,8D0HBC 
MOV #TDATA,@DHBA 
MOV #33500 , BDHLPR 
BIS ° R 
Vv #10, @DHBAR 
1%: TSTB SDHSCR 
BPL i$ 
MOV SOHNRC ,R4 
MOV #101577,R5 
CMP R5,R4 
BEQ 2s 
HLT 
EMT 
sc 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 


Xx 
DATAR=LINEX*#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC ,\XCODE, \DATAR 


aera eer TEST 


TS \XN,400,2% 
@340 PS 
ena T 
-IF NB <> 
MOV #,FREEZ1 
~ENDC 
XN=XNeol 
MOV #BIT11.,8DHSCR 
MOV #377, TDATA 


SEQ 36 
;DISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
sSELECT LINE 3 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 7 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 

;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
sCRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
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004200 


004222 
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102037 


012767 
012767 
012767 


000022 
012777 


011474 


101777 


00 
004326 


01 
011516 


173570 
0 


011426 


-_——— sessment 
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SEQ 37 


MOV #3 ,8DHSCR ;SELECT LINE 3 
MOV #-1, HBC ;SET UP TO TRANSMIT 1 BYTE 
MOV @TDATA, @DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV 93 - SDHLPR ;SET LINE SPEED FOR 9600 8 
BIS #3, 8DHLPR sSET CHARACTER LENGTH FOR 10 BITS 
MOV #10, GDHBAR ;START TRANSMITT 
1$: Li = CR sWAIT TO RECEIVE CHARACTER 
MOV GDHNRC .R4 ;CR4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #101777,R5 3CRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
a — sARE EXPECTED AND RECEIVED DATA THE SAME 
ae sCHARACTER LENGTH, DATA 
;O0R LINE NUMBER ERROR 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=*LINEX+1 
BITX=BITX+BITX 
LENGTX=0 
LENGTC=5 
XCODE=37 


»NLIST 
eg nee: 108000 NCUOE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


-NLIST 
LENGTX=*LENGTX+1 
LENGTC=LENGTC+1i 
XCODE=XCODEs2+1 
LIST 
-ENDR 
DATAR*=LINEX#400~+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
s CHARACTER Pagar a TEST 
sTRANSMIT 1 CHARACTER ON LINE 4 
sCHARACTER LENGTH IS 5 BITS 
sEXPECTED RE CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2% 
T2i: MOV #340 PS sDISABLE ALL INTERRUPTS 
MOV 6400 , ICOUNT sSET UP FOR 400 ITERATIONS 
a MOV @2% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
“ <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3s 3 
-ENDC 
XN=XNel 
MOV #68IT11,8DHSCR sMASTER CLEAR INTERFACE 





a 
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012767 
012767 
012767 


000037 
000004 
177777 
015756 
033500 
000020 
011350 
011344 


102037 


MOV @37,TDATA sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
MOV #4 , 8DHSCR sSELECT LINE 4 
MOV $-1, sSET UP TO TRANSHIT 1 i BYTE 
MOV @TDATA,@0HBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR sSET LINE SPEED FOR 9600 8 
6IS » SDHLPR sSET CHARACTER LENGTH FOR 5 BITS 
MOV #20, GDHBAR sSTART TRANSMITT 
1s: i — sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC ,R4 s(R4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #102037,R5 :CRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
; STATUS IN HIGH BYTE 
con > ied sARE EXPECTED AND RECEIVED DATA THE SAME 
an sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 
23: SCOPE 
LENGTX*LENGTX¢1 
LENGTC=*LENGTC+1 
XCODE=XCODEs2+1 
DATAR*LINEX#400+ 100000 + XCODE 


CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 





sEXPECTED RE 
sLINE SPEED IS 
TS \XN,400,28 
T22: MOV 0340 ,PS sDISABLE ALL INTERRUPTS 
Vv 6400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
— MOV ° sSET UP TO ESCAPE TO NEXT TEST 
f <> 
MOV @,FREEZi sSET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN*XNeo1 
MOV sMASTER a INTERFACE 
MOV sCHARACTER T gd TRANSMITTED = 77(OCTAL) 
MOV sSELECT tM 6 
MOV sSET UP TO TRANSMIT 1 BYTE 
MOV sSET UP ADDRESS S OF CHARACTER TO BE TRANSMITTED 
MOV SSET LINE SPEED FOR 9600 BAUD 
BIS sSET CHARACTER LENGTH FOR 6 BITS 
MoV SSTART TRANSMITTER 
i$: hi gg sWAIT TO RECEIVE CHARACTER 
MOV sCR4 RECEIVED CHARACTER 
AND 
MOV #102077 ,R5 





sAND LINE NUMBER AND 
;STATUS IN HIGH BYTE 





004610 
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020504 

001401 

104000 

104400 

000002 

000007 

000177 

102177 

012767 000340 

012767 000400 
012767 004606 

012777 004000 

012767 000177 
12777 000004 

012777 177777 

012777 015756 

012777 033500 

052777 

012777 000020 
105777 011070 
100375 

017704 011064 

012705 102177 

001401 

104000 

104400 

000003 

000010 

000377 

102377 


TS \XN,400,28 
T23: MOV 
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= — sARE EXPECTED AND RECEIVED DATA THE SAME 
HLT sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 
: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
sTRANSMIT 1 


BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 


#340 ,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
Vv #2% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA + 3 


sMASTER CLEAR INTERFACE 
sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
sSELECT LINE 4 
sSET UP TO TRANSMIT 1 BYTE 
sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
SET LINE SPEED FOR 9600 BAUD 
SET CHARACTER he FOR 7 BITS 
:START TRANSMITT 
sWAIT TO RECEIVE C CHARACTER 


SOHNRC .R4 sCR4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
: CHARACTER STATUS IN HIGH BYTE 
:CRS)*EXPECTED CHARACTER IN LOW BYTE 
sANO AND CHARACTER 


LINE 
s STATUS IN HIGH BYTE 
sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 








MOV #102177,R5 








CMP RS .R4 
BEQ ag 


+XCODE 
 \WLENGTX , \LENGTC . \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 4 
sCHARACTER LENGTH IS 10 SITs 
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104400 


102437 


900004 
177777 
015756 
033500 


000020 
010740 
010734 


102377 








MOV #102377,R5 


CMP RS .R4 
BEQ 2$ 
HLT 

EMT 


2%: SCOPE 

LENGTX*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


LINEX=LINEX+1 
BITX*BITX+BITX 
LENGTX#0 
LENGTC*S 

— sak 


NLIST 
DATAR*LINEX®400+ 100000 + XCODE 
pg tt \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 


NLT 
LENGTX=LENGTX+1 
LENGTC*LENGTC+1 
XCODE =XCODE*2+1 
-LIST 


-ENOR 
DATAR=LINEX#400+ 100000+X 





a 


27-JUN-85 12:56:29 PASE 19-16 = 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,29 
173 124: mov 0340.PS sDISABLE ALL INTERRUPTS 
011100 MOV €400. ICOUNT sSET UP FOR 400 ITERATIONS 
01 ae HOV €23 , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
re <> 
MOV ®.FREEZ1 :SET UP TO LOOP WITH DATA ; 3 
XN=XN> 1 
011016 MOV sMAS{ER CLEAR INTERFACE 
011110 MOV ; CHARACTER 0, BE TRANSMITTED = 377(OCTAL) 
011002 MOV SSELECT LINE 
011006 MOV 3SET UP TO TRANSMIT 1 BYTE 
010774 MOV ;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
010764 MOV ;SET LINE SPEED FOR 9600 BAUD 
107 81S ;SET CHARACTER LENGTH FOR 10 BITS 
010756 MOV ;START TRANSMITTER 
1s: TsT6 ;WAIT TO RECEIVE CHARACTER 
MOV SOHNRC .R4 :(R4)*RECEIVED CHARACTER 


sIN LOW BYTE, AND LINE NUMBER AND 

sCHARACTER STATUS IN HIGH BYTE 

sCRS)=*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

: STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 


CODE 
CHART \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 5 
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005070 
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012767 
012767 
012767 


000077 
102477 


012767 
012767 
012767 


000027 
012777 
012767 
012777 


00034 


102437 


000340 
000400 
005216 
004000 


000077 
000005 


sCHARACTER LENGTH IS 5 BITS 


sEXPECTED RECEIVED CHARACTER IS 37 


sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T25: MOV @340.PS 
MOV #400 , ICOUNT 
MOV 62% ,ESCAPE 
-IF NB <> 
MOV @,FREEZi 
-ENDC 
XN=XNeoi 
MOV @B1T11.839HSCR 
MOV #37, TDATA 
MOV »8DHSCR 
MOV #-1,8DHBC 
MOV @TDATA,&8DHBA 
MOV #33500, _" 
BIS 40, BDHLPR 
MOV 040, 30HBAR 
is: TSTs SDHSCR 
BPL i$ 
MOV SOHNRC ,R4 
MOV #102437 .R5S 
CMP RS .R4 
BEQ es 
HLT 
EMT 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE*2+1 
DATAR=LINEX2#400+ 100000 + XCODE 
CHARTi 


SEQ 41 
sDISABLE ALL INTERRUPTS 
;SET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
sSELECT LINE 5 

;SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 5 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;€R4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
:CRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

s;STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
s0R LINE NUMBER ERROR 


\LINEX, \BITX, \LENGTX, \LENGTC,.\XCODE, \DATAR 


sCHARACTER LENGTH TEST 


sLINE SPEED IS 


TS \XN,400,2% 


T26: MOV 
MOV 
MOV 
IF NB <> 
MOV 
-ENDC 
XN=XNeo1 
MOV 
MOV 
MOV 


2%, ESCAPE 
®,FREEZ1 
#81T11,@DHSCR 


677, TDATA 
#5 , DHSCR 





s CHARACT BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
9600 BAUD 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 
sMASTER CLEAR INTERFACE 


sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
sSELECT LINE 5 





a 





~~. 





CMP RS ,R4 
BEQ 2$ 
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005134 012777 177777 010524 MOV @-1,@0HBC ;SET UP TO TRANSMIT 1 BYTE 
1 012777 015756 010514 MOV @TDATA,@DHBA sSFT UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
005150 012777 033500 O1 MOV @33500 , 8BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
005156 052777 000001 010476 BIS 21, 8DHLP R sSET CHARACTER LENGTH FOR 6 BITS 
005164 012777 000040 010476 MOV #40, SDHBAR ;START TRANSMITTER 
005172 105777 010460 1s: TSTB SDHSCR ;sWAIT TO RECEIVE CHARACTER 
005176 100375 BPL is 
005200 017704 010454 MOV SDHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
005204 012705 102477 MOV #102477,R5 3CRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
005210 020504 CMP RS .R4 ;sARE EXPECTED AND RECEIVED DATA THE SAME 
005212 001401 BEQ 2s : 
005214 HLT sCHARACTER LENGTH, DATA 
005214 104000 EMT 
;OR LINE NUMBER ERROR 
005216 104400 2s: SCOPE 
000002 LENGTX*LENGTX+1 
000007 LENGTC=LENGTCel 
000177 XCODE=XCODEs2+1 
102577 DATAR=LINEX#400+ 100000 + XCODE 
0€5220 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
37 T 1 CHARACTER ON LINE S 
sCHARACTER LENGTH IS 7 BIT 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
005220 TS \XN,400,2$ 
005220 012767 000340 172550 127: MOV 8340 ,PS sDISABLE ALL INTERRUPTS 
005226 012767 000400 010470 MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
005234 012767 005346 010456 a MOV #23,ES ;SET UP TO ESCAPE TO NEXT TEST 
«> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3; § 
-ENDC 
XN=XNeol 
005242 012777 010406 MOV @6IT11,9DHSCR sMASTER CLEAR INTERFACE 
005250 012767 000177 010500 MOV 4177, TOATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
005256 012777 010372 MOV #5 ,80HSCR ;SELECT LINE 5 
005264 012777 177777 010374 MOV #-1, 8DHBC ;SET UP TO TRANSMIT 1 BYTE 
005272 012777 015756 010364 MOV #TDATA,@DHBA s;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
005300 012777 033500 010354 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
005306 052777 000002 010346 BIS $2 ,8DHL SSET CHARACTER LENGTH FOR 7 BITS 
005314 012777 000040 010346 MOV #40, AR ;START TRANSMITTER 
005322 105777 010330 1$: TST6 SOHSCR sWAIT TO RECEIVE CHARACTER 
005326 100375 BPL 1$ 
005330 017704 010324 MOV @DHNRC ,R4 ;(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
005334 012705 102577 MOV #102577 .R5 ;(RS5)=EXPECTED CHARACTER m LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
005340 020504 sARE EXPECTED AND RECEIVED DATA THE SAME 
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005350 
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0000 
000377 
102777 


012767 
012767 
012767 


010174 


102777 





SEQ 43 
a ;CHARACTER LENGTH, DATA 
;O0R LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 
;CHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 5 
;CHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T30: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT :SET UP FOR 400 ITERATIONS 
— MOV #2% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
vi <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #81T11,98DHSCR sMASTER CLEAR INTERFACE 
MOV #377, TDATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
MOV #5 .8DHSCR ;SELECT LINE 5 
MOV 4-1, 8DHBC ;SET UP TO TRANSMIT 1 BYTE 
MOV #TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS #3 ,8DHLPR sSET CHARACTER LENGTH FOR 10 BITS 
MOV #40, SBOHBAR sSTART TRANSMITTER 
1$: hg re CR sWAIT TO RECEIVE CHARACTER 


sCR4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 


MOV #102777 ,R5 :(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 

as = sARE EXPECTED AND RECEIVED DATA THE SAME 

pH sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 

2s: SCOPE 
LENGTX=*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=LINEX+1 
BITX=BITX+BITX 
LENGTX=0 
LENGTC#S 
XCODE=37 
-REPT 4 

Is 


-NLIST 
DATAR=LINEX*#400+ 100000+XCODE 








OO OL Ln nn esses .sessspnceeseeeeenes 


SEQ 44 
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-LIST 
yoy \LINEX , \BITX, \LENGTX, \LENGTC , \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+i 
XCODE=XCODEs2+1 
-LIST 
-ENDR 
103037 DATAR=LINEX#400+ 100000 +XCODE 
005500 CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 6 
;CHARACTER LENGTH IS 5 SITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
005500 TS \XN,400,2$ 
005500 012767 000340 172270 T31: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
005506 012767 000400 010210 MOV #409 , ICOUNT ;SET UP FOR 400 ITERATIONS 
005514 012767 005626 010176 oon MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
i <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
s ENDC 
XN=XNeol 
005522 012777 010126 MOV #61IT11,8DHSCR sMASTER CLEAR INTERFACE 
005530 012767 000037 010220 MOV @37,TDATA sCHARACTER TO BE TRANSMITTED = 37(0CTAL) 
005536 012777 010112 MOV #6, R sSELECT LINE 6 
005544 012777 177777 010114 MOV #-1 c ;SET UP TO TRANSMIT 1 BYTE 
005552 012777 015756 010104 MOV STDATA ,8DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
005560 012777 033500 010074 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
005566 052777 010066 BIS #0 , SDHLPR sSET CHARACTER LENGTH FOR 5 BITS 
005574 012777 100 010066 MOV #100 , BDHBAR :START TRANSMITTER 
005602 105777 010050 i$: TST8 CR sWAIT TO RECEIVE CHARACTER 
005606 100375 BPL i$ 
005610 017704 010044 MOV SOHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
005614 012705 103037 MOV #103037 ,R5 ;(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
005620 020504 CMP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
005622 001401 BEQ 2s 
005624 HLT ;CHARACTER LENGTH, DATA 
005624 104000 EMT 
;OR LINE NUMBER ERROR 
005626 104400 23: SCOPE 
000001 LENGTX*LENGTX«1 
000006 LENGTC=LENGTC+1 
000077 XCODE=XCODEs2+1 
103077 DATAR=LINEX#400+ 100000+XCODE 
005630 ~ CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
TRANSMIT 1 


S 
sEXPECTED RECEIVED CHARACTER IS 77 
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77 
103177 


012767 
012767 
012767 


012777 


SEQ 45 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
732: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
— MOV $23, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
¥ <> 
MOV @,FREEZi ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNe1 
MOV #681T11.8DHSCR sMASTER CLEAR INTERFACE 
MOV #77, TOATA sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
MOV #6 ,8@DHSCR ;SELECT LINE 6 
MOV @-1,8DHBC ;SET UP TO TRANSMIT 1 BYTE 
MOV #TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS 1, PR ;SET CHARACTER LENGTH FOR 6 BITS 
MOV #100 , @DHBAR ;START TRANSMITTER 
1$: pi ds 7 CR sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC ,R4 ;CR4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV $103077,R5 sC(RS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
an it sARE EXPECTED AND RECEIVED DATA THE SAME 
aie sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2$: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 
CHART1L \LINEX , \BITX, \LENGTX, \LENGTC,, \XCODE, \DATAR 


TS \XN,400,2$ 
: V 


sCHARACTER LENGTH TEST 

s TRANSMIT 1 CHARACTER ON LINE 6 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 


T33 MO #340,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
— MOV 62% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
IF <> 
MOV ¢,FREEZ1i ;SET UP TO LOOP WITH DATA ; 3 
-ENOC 
XN2XNel 
MOV #81T11,.980HSCR sMASTER CLEAR INTERFACE 
MOV #177, TOATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
MOV #6 ,8DHSCR ;SELECT LINE 6 
MOV 6-1, 8DHBC ;SET UP TO TRANSMIT 1 BYTE 
MOV STDATA, @DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
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006040 012777 033500 007614 MOV #33500 , @BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
006046 000002 007606 BIS #2 ,8DHLPR ;SET CHARACTER —™ FOR 7 BITS 
006054 012777 000100 007606 MOV #100 , BDHBAR :START TRANSMITT 
006062 105777 007570 1%: TSTB SDHSCR ;sWAIT TO RECEIVE. CHARACTER 
006066 100375 BPL i$ 
006070 017704 007564 MOV @DHNRC .R4 ;CR4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
006074 012705 103177 MOV #103177,R5 :C(RSJ=EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
006100 CMP RS ,R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
006102 001401 BEQ 23 
006104 HLT ;CHARACTER LENGTH, DATA 
006104 104000 EMT 
;OR LINE NUMBER ERROR 
006106 104400 23: SCOPE 
000003 LENGTX=LENGTX+1 
000010 LENGTC=LENGTC+1 
000377 XCODE=XCODEs2+1 
103377 DATAR=LINEX*#400+ 100000+XCODE 
006110 CHARTi \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 6 
S CHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 
006110 TS \XN,400,2$ 
006110 012767 000340 171660 134: MOV #340 .PS sDISABLE ALL INTERRUPTS 
006116 012767 000400 007600 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
006124 012767 006236 007566 ae MOV $23, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <> 
— MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
00 XN=XNeol 
006132 012777 007516 MOV #681T11.8DHSCR sMASTER CLEAR INTERFACE 
006140 012767 000377 007610 MOV $377, TDATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
006146 012777 007502 MOV 06, SDHSCR ;SELECT LINE 6 
006154 012777 177777 7504 MOV #-1, BDHBC ;SET UP TO TRANSMIT 1 B 
006162 012777 015756 007474 MOV #TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
006170 012777 033500 007464 MOV #33500 , @DHLPR sSET LINE SPEED FOR 9600 BAUD 
006176 05277 007456 BIS #3 , BDHLPR sSET CHARACTER LENGTH FOR 10 BITS 
0062 012777 100 007456 MOV #100 ,@DHBAR sSTART TRANSMITTER 
006212 105777 007440 1$: TST8 @DHSCR sWAIT TO RECEIVE CHARACTER 
006216 100375 BPL is 
0062 017704 007434 MOV SOHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
006224 012705 103377 MOV $103377.R5 CRS )=EXPECTED CHARACTER IN LOW BYTE 
: LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
906230 020504 CMP R5 .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
006232 001401 BEQ 23 
006234 HLT sCHARACTER LENGTH, DATA 
006234 104000 EMT 
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;OR LINE NUMBER ERROR 
006236 104400 23: SCOPE 
900004 LENGTX=LENGTX+1 
000011 LENGTC=LENGIC+1 
000777 XCODE=XCODEs2+1 
000007 LINEX=LINEX+1 
000200 BITX=BITX+BITX 
000000 LENGTX=0 
000005 LENGTC=5 
000037 XCODE=37 
-REPT 4 
-NLIST 
ne tONN NO NERRE 
ye \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
-LIST 
-ENDOR 
103437 DATAR=LINEX#400+ 100000 + XCODE 
006240 CHARTi \LINEX » \BITX, \LENGTX, \LENGTC , \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 7 
;CHARACTER LENGTH IS 5 BITS 
;EXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
006240 TS \XN,400,2$ 
006240 012767 000340 171530 T35: MOV $340 .PS sDISABLE ALL INTERRUPTS 
006246 012767 000400 007450 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
006254 012767 006366 007436 ~~ MOV 92% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeil 
006262 012777 004000 007366 MOV sMASTER CLEAR INTERFACE 
006270 012767 000037 007460 MOV 637, sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
006276 012777 000007 007352 MOV sSELECT LINE 7 
006304 012777 177777 007354 MOV ;SET UP TO TRANSHIT 1 BYTE 
006312 012777 015756 007344 MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
006320 012777 033500 007334 MOV sSET LINE SPEED FOR 9600 8B 
006326 052777 007326 BIS ;SET CHARACTER a FOR 5 BITS 
006334 012777 007326 MOV sSTART TRANSMITTER 
006 105777 007310 1%: TSTB ;WAIT TO RECEIVE CHARACTER 
006346 100375 BPL 
006350 017704 007304 MOV @DHNRC .R4 3(R4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
006354 012705 103437 MOV #103437,R5 ;C(R5)=EXPECTED ‘ge yg IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
‘STATUS IN HIGH BYTE 
006360 020504 CMP R5 ,R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
006362 001401 BEQ 2$ 
006364 HLT sCHARACTER LENGTH, DATA 
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006364 104000 EMT 
;OR LINE NUMBER ERROR 
006366 104400 2s: SCOPE 
000001 LENGTX=LENGTX+1 
000006 LENGTC=LENGTC+1 
000077 XCODE=XCODEs2+1 
103477 DATAR=LINEX*#400+ 100000+XCODE 
006370 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE » \DATAR 
;CHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 7 
;CHARACTER LENGTH IS 6 BIT 
s;EXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
006370 TS \XN,400,2$ 
006370 012767 000340 171400 T3236: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
006376 012767 000400 007320 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
006404 012767 006516 007306 ii MOV 42% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
oe MOV #,FREEZi ;SET UP TO LOOP WITH DATA ; 3 
000037 XN=XNe1 
006412 012777 004000 007236 MOV $81IT11,8DHSCR sMASTER CLEAR INTERFACE 
006420 612767 000077 007330 MOV #77, TDATA ;sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
006426 012777 0007 007222 MOV #7 ,8DHSCR ;SELECT LINE 7 
006434 012777 177777 007224 MOV #-1,@DHBC ;SET UP TO TRANSMIT i BYTE 
006442 012777 015756 007214 MOV #TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
006450 012777 033500 007204 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
006456 052777 000001 007176 BIS 41, R ;SET CHARACTER LENGTH FOR 6 BITS 
006464 012777 000200 007176 MOV #200 , BOHBAR ;START TRANSMITTER 
006472 105777 007160 i$: TSTB CR SWAIT TO RECEIVE CHARACTER 
006476 100375 BPL i$ 
006500 017704 007154 MOV SDHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
006504 012705 103477 MOV #103477 ,R5 ;CRS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
006510 020504 CMP R5.R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
006512 001401 BEQ 2s 
006514 HLT sCHARACTER LENGTH, DATA 
006514 104000 EMT 
;OR LINE NUMBER ERROR 
006516 104400 2s: SCOPE 
000002 LENGTX=LENGTX+1 
000007 LENGTC=LENGTC+i 
000177 XCODE=XCODEs2+1 
103577 DATAR=LINEX#400+ 100000+XCODE 
006520 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 

; TRANSMIT ACTER ON LINE 7 

; CHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
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012767 
012767 
012767 


000377 
103777 


012767 
012767 
012767 


000041 
012777 
012767 
012777 
012777 
012777 
012777 
052777 


000340 
000400 
006646 


103577 


000340 
000400 
006776 


171250 
007170 
007156 


SEQ 49 
TS \XN,400,2$ 
T37: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #400, ICOUNT ;SET UP FOR 400 ITERATIONS 
— MOV 2% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV @,FREEZ1i ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #BIT11,8DHSCR sMASTER CLEAR INTERFACE 
MOV $177, TDATA s;CHARACTER TO BE TRANSMITTED = 177¢(OCTAL ) 
MOV #7 ,8DHSCR ;sSELECT LINE 7 
MOV #-1,8DHBC sSET UP TO TRANSMIT 1 BYTE 
MOV @TDATA, SDHBA ;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500. 8BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS #2 ,8DHLPR sSET CHARACTER LENGTH FOR 7 BITS 
MOV #200 , BDHBAR ;START TRANSMITTER 
1$: a _ sWAIT TO RECEIVE CHARACTER 
MOV SDHNRC .R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #103577,R5 :(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
on aaa sARE EXPECTED AND RECEIVED DATA THE SAME 
ya ;CHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX4#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


TS \XN,400,2% 
MOV 


sCHARACTER LENGTH TEST 


ITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9609 BAUD 


T40: #340 PS sDISABLE ALL INTERRUPTS 
MOV $400, ICOUNT ;SET UP FOR 400 ITERATIONS 
or aah MOV 62% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENOC 
XN*XNeoi 
MOV #61T11,@DHSCR sMASTER CLEAR INTERFACE 
MOV #377, TDATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
MOV #7 ,@DHSCR sSELECT LINE 7 
MOV #-1,. 8DHBC ;SET UP TO TRANSMIT 1 BYTE 
MOV @TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , SOHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS 63 , SDHLPR ;SET CHARACTER LENGTH FOR 10 BITS 





007000 





en ssssssssssesssssssssmnmsnamnneeeeeeesereeeneeeee-ce, 


SEQ 50 


MACRO V04.00 27-JUN-85 12:56:29 PAGE 19-26 


012777 
105777 
100375 
017704 
012705 


020504 
001401 
104000 


104037 


012767 
012767 
012767 


012777 


000200 
006700 
006674 


103777 


006716 


170770 
006710 


MOV #200 , SBDHBAR s;START TRANSMITTER 
1%: i 7 sWAIT TO RECEIVE CHARACTER 
MOV S@OHNRC ,R4 3(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
;CHARACTER STATUS IN HIGH BYTE 
MOV #103777,R5 ;CRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
. irae sARE EXPECTED AND RECEIVED DATA THE SAME 
A sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=LINEX+1 
BITX=BITX+BITX 
LENGTX=0 
LENGTC=5 
XCODE=37 
REPT 4 
IST 


“NLIS 
DATAR*LINEX#400+ 100000 +XCODE 
CHARTS \LINEX,, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 


-NLIS 
LENGTX*LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODEs2+1 
-LIST 


Ld ENOR 
DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX, \LENGTX, \LENGTC,\XCODE, \DATAR 


sCHARACTER LENGTH TEST 

sTRANSMIT 1 CHARACTER ON LINE 10 
sCHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE IS 9600 BAUD 


TS \XN,400,2$ 





sDISABLE ALL INTERRUPTS 





MOV 6400 , ICOUNT 3SET UP FOR 400 ITERATIONS 
i MOV @2% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
* <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA a 
-ENOC 
XN*XNe1 
MOV #681711 ,8DHSCR sMASTER CLEAR INTERFACE 
MOV 037, TOATA sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
MOV SELECT LINE 10 
nov ;SET UP TO TRANSMIT 1 BYTE 
MOV sSET UP ADDRESS OF CHARACTER TO GE TRANSMITTED 
MOV €33500,c0u OR SSET LINE SPEED FOR 9600 BAUD 
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SEQ 51 
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012767 
012767 
012767 


104037 


000340 
000400 
007256 


006566 
0C6566 


170640 
560 


BIS €0 , SDHLPR sSET CHARACTER LENGTH FOR 5 BITS 
MOV #400 , BDHBAR sSTART TRANSMITTER 
1$: a _ sWAIT TO RECEIVE CHARACTER 
MOV SDHNAC .R4 3(R4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #104037 ,R5 sCRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
po toca sARE EXPECTED AND RECEIVED DATA THE SAME 
Al sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 
23: SCOPE 
LENGTX*LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX*#400+ 100000+XCODE 


CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 
: TRANSAT 1 CHAR H TEST 


ER LENGTH IS 6 BIT 
SEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 

TS \XN,400,2% 

T42: MOV sDISABLE ALL INTERRUPTS 

sSET UP FOR 400 ITERATIONS 





— MOV #2% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV @,FREEZi sSET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNeo1 
ae sMASTER CLEAR INTERFACE 


077, TOATA sCHARACTER TO - TRANSMITTED = 77(OCTAL) 
10 sSELECT LINE 1 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 6 BITS 

sSTART TRANSMITTER 





1%: sWAIT TO RECEIVE CHARACTER 

s(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND L R AND 
CHARACTER STATUS IN HIGH BYTE 

MOV #104077 ,R5 sCRS)*EXPECTED CHARACTER IN LOW BYTE 
3 LINE CHARACTER 
sSTATUS IN HIGH BYTE 

Ad > i sARE EXPECTED AND RECEIVED DATA THE SAME 

or sCHARACTER LENGTH, DATA 


sOR LINE NUMBER ERROR 
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007260 


007410 


007410 
007410 
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104400 23: SCOPE 
000002 LENGTX 


*LENGTX+ 
LENGTC=LENGTC+1i 
000177 XCODE=XCODEs2+1 
104177 DATAR=LINEX*400+ 100000 


CODE 
\LINEX , \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHAR 
sCHARACTER LENGTH IS 7 BITS 


;EXPECTED RECEIVED CHARACTER IS 177 
9600 BAUD 








sDISABLE ALL INTERRUPTS 

sSET UP FOR 400 ITERATIONS 

sSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA + 3 
sMASTER CLEAR INTERF 

sCHARACTER A TRANSMITTED = 177COCTAL) 


sSET UP TO TRANSMIT 1 BYTE 
sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 


SPEED FOR 96 

sSET CHARACTER LENGTH FOR 7 BITS 
RANSMITTER 

sWAIT TO RECEIVE CHARACTER 

s(R4 RECEIVED CHARACTER 

ae LOW BYTE, AND LINE NUMBER AND 
ER STATUS IN HIGH BYTE 

CRS “EXPECTED CHARACTER IN LOW BYTE 

NUMBER AND CHARACTER 


sAND LINE 
STATUS IN HIGH BYTE 
sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 


sLINE SPEED IS 
TS \XN,400,2% 
012767 000340 170510 143: MOV #340 ,PS 
012767 000400 006430 MOV #400 , ICOUNT 
012767 007406 006416 MOV #2% , ESCAPE 
IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNol 
012777 004000 006346 #681IT11,@DHSCR 
012767 000177 006440 MOV #177, TDOATA 
012777 000010 006332 MOV #10 sSELECT 
177777 006334 MOV 
012777 015756 006324 MOV 
012777 033500 006314 iSET LINE 
77 006306 BIs 
012777 000400 006306 MOV sSTART T 
105777 006270 i$: TSTB 
100375 BPL 
017704 006264 MOV 
012705 104177 MOV 0104177 .R5 
020504 CMP R5 .R4 
001401 BEQ 2¢ 
MLT 
104000 EMT 
104400 2s: SCOPE 
LENG TX*LENGTX+1 
000010 LENGTC*LENGTC+1 
000377 XCODE=XCODEs2+1 
104377 DATAR +100000 +X 


012767 


XCODE 
CHART1 \LINEX,\6ITX, \LENGTX, \LENGTC , \XCODE, \DATAR 








7 
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007416 012767 000400 906300 MOV #400, ICOUNT sSET UP FOR 400 ITERATIONS 
007424 012767 007536 006266 — MOV 2% . ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
a <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
900045 XN=XNe i 
007432 012777 006216 MOV @81T11.,8DHSCR sMASTER CLEAR INTERFACE 
007440 012767 000377 006310 MOV sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
007446 10 MOV sSELECT LINE 10 
007462 012777 15756 o06i7s nov oe Sea LETTE 
OF CHARACTER TO BE TRANSMITT 
007470 012777 033500 006164 MOV sSET LINE SPEED FOR 9600 BAUD ™ a 
007476 000003 006156 B15 sSET CHARACTER LENGTH FOR 10 BITS 
007504 012777 000400 006156 MOV sSTART TRANSMITTER 
007512 105777 006140 18: TSTB sWAIT TO RECEIVE CHARACTER 
007516 100375 BPL 
017704 006134 MOV 3(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
007524 012705 104377 MOV #104377,R5 sCRS)*EXPECTED CHARACTER e — BYTE 
sAND LINE NUMBER AND CHARACTE 
sSTATUS IN HIGH BYTE 
007530 020504 CMP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
OC7532 001401 BEG 2s 
007534 HLT sCHARACTER LENGTH, DATA 
007534 104000 EMT 
sOR LINE NUMBER ERROR 
007536 104400 23: SCOPE 
000004 LENGTX*LENGTX+1 
000011 LENGTC*LENGTC+1 
000777 XCODE=XCODEs2+1 
000011 LINEX=LINEX+1 
001000 BITX=BITX+BITX 
000000 LENGTX=0 
000005 LENGTC#5 
000037 XCODE=37 
REPT 4 
-NLT 


ST 
“—nree 100000 « XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


ST 
LENGTX=LENGTX- | 
LENGTC=LENGTC+1i 
oe | 


-ENOR 
104437 DATAR=LINEX#400- 100000 + XCODE 
007540 CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


sCHARACTER LENGTH TEST 

sTRANSMIT 1 CHARACTER ON LINE 11 
sCHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED —— Is 37 
sLINE SPEED IS 9600 8B 


007540 TS \XN,400,2$ 





007670 
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012767 
012767 
012767 


012767 
012767 
012767 


012777 


00 
010016 


170230 
006150 
006136 


170100 


T45: 


.IF NB 


-ENDC 
XN=XNeo1 


1$: 


23: SCOPE 

LENGTX*LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODE*2+1 


#340 ,.PS 
#400 , ICOUNT 
023, ESCAPE 


@,FREEZ1 


#81IT11,@DHSCR 
037, TDATA 
#11, @DHSCR 
@-1,@DHBC 
@TDATA,@DHBA 
#33500 , BDHLPR 
60, @DHLPR 
#1000, BOHBAR 
SDHSCR 


i$ 
@DHNRC .R4 


€104437,R5 


RS .R4 
es 


DATAR=LINEX4#400-+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 


SEQ 54 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
sSELECT LINE 11 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 5 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
;(RS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sTRANSMIT 1 CHARACTER ON LINE 11 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 

:;CHARACTER TO BE TRANSMITTED = 77(OCTAL) 
sSELECT LINE 11 

;SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

;SET CHARACTER LENGTH FOR 6 BITS 


;CHARACTER LENGTH IS 6 BIT 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2% 
T46: MOV €340,PS 
MOV $400, ICOUNT 
MOV $23 ,ESCAPE 
-1F NB «<> 
MOV #,FREEZ1 
-ENDC 
XN=XNeol 
MOV #B81T11,8DHSCR 
MOV #77, TDATA 
MOV #11, @DHSCR 
MOV #-1,80HB 
MOV @TDATA,SDHBA 
MOV €33500 , SDHLPR 
BIS #1,3DHLPR 
MOV #1000, SDHBAR 





sSTART TRANSMITTER 
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007772 
007776 
010000 


010004 


010010 
010012 
020014 
010014 


010016 


010020 





SEQ 55 
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105777 


012767 
012767 
012767 


005660 
005654 


104477 


i$: ge om sWAIT TO RECEIVE CHARACTER 
MOV BDOHNRTC ,R4 ;(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #104477,R5 ;CRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
a al sARE EXPECTED AND RECEIVED DATA THE SAME 
A ;CHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
23: SCOPE ) 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE*#2+1 


DATAR=LINEX*#400- 100000 +XCODE 


CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 11 
sCHARACTER LENGTH IS 7 S 
sEXPECTED RECEIVED CHARACTER IS 177 
;LINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T47: MOV €340,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
~— MOV 023, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV @,FREEZi ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeol 
MOV #68IT11.8DHSCR sMASTER CLEAR INTERFACE 
MOV #177, TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
MOV #11,@DHSCR sSELECT LINE 11 
MOV $-1, ;SET UP TO TRANSMIT 1 BYTE 
MOV @TDOATA , SDHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS a R ;SET CHARACTER LENGTH FOR 7 BITS 
MOV #1000, BDHBAR sSTART TRANSMITTER 
1$: TSTB 7 sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC .R4 :(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #104577 ,R5 ;(R5)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
rs ae sARE EXPECTED AND RECEIVED DATA THE SAME 
Q 3 
nt ;CHARACTER LENGTH, DATA 
EM 
;0R LINE NUMBER ERROR 
2$: SCOPE 
LENGTX=LENGTX+1 














SEQ 56 
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000010 LENGTC=LENGTC+1i 
000377 XCODE=XCODE*s2+1 
104777 DATAR=LINEX#400+ 100000 +XCODE 
010150 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 11 
sCHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
;LINE SPEED IS 9600 BAUD 
010150 TS \XN,400,2$ 
010150 012767 000340 167620 T50: MOV #340 ,.PS sDISABLE ALL INTERRUPTS 
010156 012767 000400 005 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
010164 012767 010276 005526 — MOV $2$,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
J <> 
ane MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
000051 XN=XNe1 
010172 012777 005456 MOV #681IT11,8DHSCR ;MASTER CLEAR INTERFACE 
010200 012767 000377 005550 MOV $377, TDATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
010206 012777 000011 005442 MOV i, CR sSELECT LINE 11 
010214 012777 177777 005444 MOV 4-1, 8DHBC ;SET UP TO TRANSMIT 1 BYTE 
010222 012777 015756 005434 MOV @TDATA,80HBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
102 012777 033500 005424 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
010236 052777 000003 005416 BIS #3, PR sSET CHARACTER LENGTH FOR 10 BITS 
010244 012777 001000 005416 MOV #1000, SDHBAR sSTART TRANSMITTER 
010252 105777 005400 1$: TSTB 8D0HS sWAIT TO RECEIVE CHARACTER 
010256 100375 BPL 1$ 
010260 017704 005374 MOV SOHNRC ,R4 3(R4)=*RECEIVED CHARACTER 
:IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
010264 012705 104777 MOV #104777 ,RS 3C(RS)=EXPECTED CHARACTER * LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
010270 020504 CMP RS ,.R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
010272 001401 BEQ 2$ 
010274 HLT sCHARACTER LENGTH, DATA 
010274 104000 EMT 
;OR LINE NUMBER ERROR 
010276 104400 2%: SCOPE 
000004 LENGTX=LENGTX+1 
000011 LENGTC=LENGTC+1 
000777 XCODE=XCODEs2+1 
000012 LINEX=LINEX+1 
002000 BITX=BITX+BITX 
LENGTX=0 
LENGTC=5 
000037 XCODE=37 
000004 oes 4 


-NLIST 
Pe ee O00 COE 


LIS 
CHARTS \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 








ee 
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XCODE=XCODEs2+1 
-LIST 
105037 DATAR=LINEX*#400+ 100000 +XCODE 
010300 CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 12 
;CHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
;LINE SPEED IS 9600 BAUD 
010300 TS \XN,400,2$ 
010300 012767 000340 167470 T51: MOV $340 ,PS sDISABLE ALL INTERRUPTS 
010306 012767 000400 005410 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
010314 012767 010426 005376 — MOV $2$ ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
, <> 
MOV @, FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeoi 
010322 012777 005326 MOV #681IT11,8DHSCR sMASTER CLEAR INTERFACE 
010330 012767 000037 005420 MOV $37 , TDATA sCHARACTER TO BE TRANSMITTED = 37COCTAL) 
010336 012777 000012 005312 MOV #12, @DHSCR sSELECT LINE 12 
10344 012777 177777 005314 MOV @-1,80HBC ;SET UP TO TRANSMIT 1 BYTE 
010352 012777 015756 5304 MOV @TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
010360 012777 033500 005274 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
010366 052777 005266 BIS , BDHLPR ;SET CHARACTER LENGTH FOR 5 BITS 
010374 012777 002000 005266 MOV #2000, BOHBAR :START TRANSMITT 
010402 105777 005250 1%: TSTB SDHSCR sWAIT TO RECEIVE CHARACTER 
010406 100375 BPL i$ 
010410 017704 005244 MOV SDHNRC .R4 ;(R4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
010414 012705 105037 MOV #105037,R5 ;(R5)=*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
; STATUS IN HIGH BYTE 
104 020504 CMP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
010422 001401 BEQ 2$ 
010424 HLT sCHARACTER LENGTH, DATA 
010424 104000 EMT 
;OR LINE NUMBER ERROR 
010426 104400 2s: SCOPE 
00000 LENGTX=LENGTX+1 
000006 LENGTC=LENGTC+1 
000077 XCODE=XCODEs2+1 
105077 DATAR=LINEX#400+ 100000 +XCODE 
010430 CHART1 \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 12 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
010430 TS \XN,400,2$ 
010430 012767 000340 167340 T52: MOV $340 ,PS sDISABLE ALL INTERRUPTS 
010436 ‘ 012767 000400 005260 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 








tect 
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010444 012767 010556 005246 — 62% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA . 2 
-ENDC 
XN=XNe1 
010452 012777 004000 005176 MOV #681T11.,8DHSCR sMASTER CLEAR INTERFACE 
010460 012767 000077 005270 MOV $77, TDATA ;CHARACTER TO Y TRANSMITTED = 77(OCTAL) 
010466 012777 000012 005162 MOV #12, 8DHSCR sSELECT LINE i 
010474 012777 177777 005164 MOV @-1,8DHBC sSET UP TO TRANSMIT 1 BYTE 
01 012777 015756 005154 MOV #TDATA.@DHBA s;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
010510 012777 033500 005144 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
010516 052777 000001 005136 BIS #1 ,.SDHLPR sSET CHARACTER LENGTH FOR 6 BITS 
010524 012777 002000 005136 MOV $2000, SDHBAR ;START TRANSMITTER 
010532 105777 0605120 1%: TSTB 8DHSCR ;sWAIT TO RECEIVE C CHARACTER 
010536 1003 BPL is 
010540 017704 005114 MOV SCHNRC ,.R4 ;CR4)=*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
010544 012705 105077 MOV $105077,R5 :(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
010550 020504 CMP RS ,.R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
010552 001401 BEQ 2$ 
010554 HLT sCHARACTER LENGTH, DATA 
010554 104000 EMT 
;OR LINE NUMBER ERROR 
010556 104400 23: SCOPE 
000002 LENGTX=LENGTX+1 
000007 LENGTC=LENGTC+1 
000177 XCODE=XCODEs2+1 
105177 DATAR=LINEX#400+ 100000 + XCODE 
010560 CHART1 \LINEX , \BITX,\LENGTX, \LENGTC , \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
;TRANSMIT 1 CHARACTER ON LINE 12 
sCHARACTER LENGTH IS 7 BIT 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
010560 TS \XN,400,2$ 
010560 012767 000340 167210 153: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
01 012767 000400 005130 MOV $400 , ICOUNT sSET UP FOR 400 ITERATIONS 
010574 012767 010706 005116 — MOV 2% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
9 <> 
MOV #,FREEZi ;SET UP TO LOOP WITH DATA 5 3 
-ENDC 
XN=XNo1 
010602 012777 005046 MOV #681IT11,8DHSCR sMASTER CLEAR INTERFACE 
010610 012767 000177 005140 MOV 9177, TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
010616 012777 0000 005032 MOV #12, CR sSELECT LINE 12 
010624 012777 177777 005034 MOV -1,8 ;SET UP TO TRANSMIT 1 BYT 
010632 012777 015756 005024 MOV #TDATA,80HBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
010640 012777 3500 005014 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
010646 77 5006 BIS #2, sSET CHARACTER LENGTH FOR 7 BITS 
010654 012777 00 005006 MOV $2000, SDHBAR sSTART TRANSMITTER 
010662 105777 004770 i$: TST8 @DHSCR sWAIT TO RECEIVE CHARACTER 
010666 1003 BPL i$ 
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010670 


010710 


010710 
010710 
010716 
010724 
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017704 


012705 


012767 
012767 
012767 


004764 


105177 


000340 
000400 
011036 


004634 


105377 


MOV SDHNRC .R4 


MOV #105177.R5 


SEQ 59 


3CR4)=RECEIVED CHARACTER 
:IN LOW BYTE, NE NUMBER AND 


sAND LINE NUMBER AND CHA 
sSTATUS IN HIGH BYTE 
sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sOISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA + 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
sSELECT LINE 12 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF gorges TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 

sSET CHARACTER LENGTH FOR 10 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


3(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE 
sCHARACTER STATUS IN HIGH BYTE 
sC(R5)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

; STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


CMP RS .R4 
BEQ 2$ 
HLT 
EMT 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX4400+ 100000 + XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE,\DATAR 
sCHARACTER LENGTH TEST 
s; TRANSMIT 1 CHARACTER ON LINE i2 
sCHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
754: MOV #340 ,PS 
MOV #400 , ICOUNT 
MOV $2$, ESCAPE 
-IF NB «<> 
MOV @,FREEZ1 
-ENDC 
XN=XNo1 
MOV #81T11,98DHSCR 
MOV #377,TDATA 
MOV #12, 8DHSCR 
MOV $-1,@DHBC 
MOV STDATA,@DHBA 
Vv » 8OHLP 
BIS $3, R 
MOV #2000, SOHBAR 
1%: TSTB 
BPL i$ 
MOV SDHNRC ,R4 
MOV #105377,R5 
CMP R5,R4 
BEQ 23 
HLT 
EMT 
23: 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 














SEQ 60 
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000013 LINEX=LINEX+1 
004000 BITX=BITX+BITX 
000000 LENGTX=0 
000005 LENGTC=5 
000037 XCODE=37 
000004 -REPT 4 
-NLIST 
ee 1ONNNO NERRE 
yn \LINEX ,, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE*s2+1 
LIST 
-ENDR 
105437 DATAR=LINEX#400+ 100000 +XCODE 
011040 CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 
sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 13 
;CHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 
011040 TS \XN,400,2$ 
911040 012767 000340 166730 155: MOV #340 ,PS s;DISABLE ALL INTERRUPTS 
011046 012767 000400 004650 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
011054 012767 011166 004636 yen MOV #23, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
. “> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel1 
1062 012777 004000 004566 MOV #61T11,@DHSCR sMASTER CLEAR INTERFACE 
011070 012767 000037 MOV #37, TDAT sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
011076 012777 000013 004552 MOV #13, sSELECT LINE 13 
1104 012777 177777 004554 MOV -1,@0HBC sSET UP TO TRANSMIT 1 BYTE 
011112 012777 015756 004 MOV #TOATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
011120 012777 033500 004534 MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
011126 277 004526 BIS 40, 8DHLPR ;SET CHARACTER LENGTH FOR 5 BITS 
011134 012777 004526 MOV #4000, SOHBAR sSTART TRANSMITTER 
011142 105777 004510 i$: TST8 SDHSCR sWAIT TO RECEIVE CHARACTER 
011146 100375 BPL is 
011150 017704 004504 MOV @DHNRC ,R4 :(R4)=*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBE 
sCHARACTER STATUS IN HIGH BYT 
011154 012705 105437 MOV #105437,R5 Se ae CHARACTER aie LOW BYTE 
a NUMBER AND CHARACTER 
SSTATUS IN HIGH BYTE 
011160 020504 CMP RS ,R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
011162 001401 BEQ es 
011164 HLT sCHARACTER LENGTH, DATA 
011164 104000 EMT 
;0R LINE NUMBER ERROR 
011166 104400 2$: SCOPE 
000001 LENGTX=LENGTX+1 
000006 LENGTC=LENGTC+1i 
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011170 


011170 
011170 
011176 
011204 


011310 
011312 
011314 
0113514 


011316 


011320 


011320 
011320 
011326 
011334 
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000077 
105477 


012767 
012767 
012767 


000177 
105577 


012767 
012767 
012767 





SEQ 61 


XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000+XCODE 
CHART1 \LINEX , \BITX, \LENGTX , \LENGTC, \XCODE, \DATAR 
;CHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 13 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
;LINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
000340 166600 T56: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
000400 004520 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
011316 004506 — MOV #2$,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV &,FREEZ1 ;SET UP TO LOOP WITH DATA : 3 
-ENDC 
XN=XNeoil 
MOV #B8IT11,@DHSCR sMASTER CLEAR INTERFACE 
000077 004530 MOV #77, TDATA s;CHARACTER TO BE TRANSMITTED = 77COCTAL ) 
000013 004422 MOV #13, 8DHSCR sSELECT LINE 13 
177777 004424 MOV #-1,8DHBC ;SET UP TO TRANSMIT 1 BYTE 
015756 004414 MOV @TDATA,&DHBA s;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
033500 004404 MOV #33500 , BOHLPR ;SET LINE SPEED FOR 9600 BAUD 
000001 004376 BIS #1, PR ;SET CHARACTER LENGTH FOR 6 BITS 
004000 004376 MOV $4000, SOHBAR :START TRANSMITTER 
004360 i$: L dg . sWAIT TO RECEIVE CHARACTER 
004354 MOV @DHNRC ,R4 :(R4)*RECEIVED CHARACTER 
:;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
105477 MOV $105477,R5 :(RS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
ol oo SARE EXPECTED AND RECEIVED DATA THE SAME 
ea ;CHARACTER LENGTH, DATA 
;0R LINE NUMBER ERROR 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODE*«2+1 
DATAR=LINEX#400+ 100000 +XCODE 
CHARTL \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
; TRANSMIT 1 CHARACTER ON LINE 13 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
000340 166450 157: MOV $340 .PS ;DISABLE ALL INTERRUPTS 
000400 004370 MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
011446 004356 = MOV #2% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
2 <> 
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011450 
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105777 


012767 
012767 
012767 


000061 
012777 
012767 
012777 
012777 
012777 
012777 
052777 
012777 
105777 


100375 
017704 


004224 


105577 


000340 
000400 
011576 


MOV @,FREEZ1 


.-ENDC 
XN=XNeol 
MOV #681T11,8DHSCR 
MOV #177, TDATA 
MOV #13, 8DHSCR 
MOV 6-1, 8DHBC 
MOV &TDATA,@DHBA 
MOV #33500 . 8DHLPR 
BIS $2 ,8DHLPR 
MOV #4000, SDHBAR 
1%: TSTB 8DHSCR 
BPL i$ 
MOV SDHNRC ,R4 
MOV #105577,R5 
CMP RS .R4 
BEQ 2s 
HLT 
EMT 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


-IF NB 
ENOC 


XN=XNo 4 


i$: 


sCHARACTER LENGTH TEST 


= AS enti te at -- 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
sSELECT LINE 13 

;SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
;SET LINE SPEED FOP 9600 BAUD 

sSET CHARACTER LENGTH FOR 7 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
;(RS)=*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sTRANSMIT 1 CHARACTER ON LINE 13 


sCHARACTER LENGTH IS 10 BITS 


sEXPECTED RECEIVED CHARACTER IS 377 


sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T60: MOV 


MOV #400 , ICOUNT 
MOV 2% , ESCAPE 


@,FREEZ1 

MOV @6IT11,@DHSCR 
MOV #377, TDATA 
MOV #13, @DHSCR 
MOV @-1, 
MOV @TDATA,@DHBA 
MOV 3500, 
BIS #3, 8DHLPR 
MOV #4000, 
TSTB SOHSCR 

L i$ 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
sSELECT LINE 13 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 10 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


3(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
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011564 


011570 
011572 
011574 
011574 


011576 


011600 


011614 


011622 


011710 


aaa Lee 
SEQ 63 
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012705 105777 


020504 
001401 


104000 


106037 


012767 
012767 
012767 


000340 
000400 
011726 


sCHARACTER STATUS IN HIGH BYTE 


MOV #105777.R5 ;CRS)= =XPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 

al = sARE EXPECTED AND RECEIVED DATA THE SAME 

ae :;CHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 

es: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=LINEX+1 
BITX=BITX+BITX 
LENGTX=0 
LENGTC=5 
XCODE=37 

«<4 & 


-NLIST 
ee 100000 + XCODE 


CHARTS \LINEX , \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 

LENGTC=LENGTC+1 

XCODE=XCODEs2+1 

LIST 


-ENDR 
DATAR=LINEX#400+ 100000 + XCODE 
CHARTi \LINEX,\BITX,\LENGTX, \LENGTC,\XCODE, \DATAR 


sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON 





TS \XN,400,2$ 
: MOV 6340 ,PS sDISABLE ALL INTERRUPTS 
MOV #400, ICOUNT sSET UP FOR 400 ITERATIONS 
2 MOV 023 ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> | 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA s § 
-ENOC 
XN®=XNeol 
MOV sMASTER CLEAR INTERFACE 
MOV sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
MOV sSELECT LINE 14 
MOV sSET UP TO TRANSMIT 1 BYTE 
MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV sSET LINE SPEED FOR 9600 BAUD 
BIS sSET CHARACTER LENGTH FOR 5 BITS 
MOV sSTART TRANSMITTER 
is: bi dag sWAIT TO RECEIVE CHARACTER 
MOV SDHNRC .R4 3:(R4)*RECEIVED CHARACTER 





CZDHE -CO 


011714 


011724 
011726 


011730 


) eee 


SEQ 64 
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012705 106037 

020504 

001401 

104000 

104400 

000001 

000006 

000077 

106077 

012767 000340 

012767 000400 

012767 012056 

012777 004000 

012767 000077 

012777 000014 

012777 177777 

012777 015756 

012777 033500 
777 000001 

012777 010000 

105777 3620 

1003 

017704 003614 

012705 106077 

001401 

104000 

104400 

000002 

000007 

000177 

106177 


sIN LOW BYTE, AND LINE NUMBER AND 


sCHARACTER STATUS IN HIGH BYTE 
MOV #106037,R5 ;CRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
ol _ sARE EXPECTED AND RECEIVED DATA THE SAME 
ae sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
23: SCOPE 
LENGTX*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000+XCODE 
CHART \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 





TS \XN,400,2$ 
T62: MOV #340 ,PS sOISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
is MOV @2% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNeo 1 
MOV #61711 ,@DHSCR sMASTER CLEAR INTERFACE 
MOV #77, TDATA sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
MOV 014 sSELECT LINE 14 
MOV foi UP TO TRANSMIT 1 BYTE 
MOV SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV SSET LINE SPEED FOR 9600 BAUD 
BIS sSET CHARACTER LENGTH FOR 6 BITS 
MOV sSTART TRANSMITTER 
1%: i . sWAIT TO RECEIVE CHARACTER 
MOV GOHNRC ,R4 :CR4 RECEIVED CHARACTER 
s:IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #106077 .,R5 SRS )*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
SSTATUS IN HIGH BYTE 
pon a. sARE EXPECTED AND RECEIVED DATA THE SAME 
a sCHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR | 
2%: SCOPE 
TX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX*#400+ 100000 + XCODE 








012166 
012170 


012174 


012210 


012210 
012210 
16 


0122 
012224 


EEE LL LL cn nr eee 


















SEQ 65 
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CHART1 \LINEX.\BITX.\LENGTX.\LENGTC » \XCODE. \DATAR 
;CHARACTER LENGTH 
sTRANSMIT 1 CHARACTER ON LINE 14 
sCHARACTER LENGTH IS 7 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 
TS \XN,400,2 
012767 000340 165710 163: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
012767 000400 003630 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
012767 012206 003616 — MOV @2% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
<> 
ome MOV @,FREEZ1i sSET UP TO LOOP WITH DATA ; 3 
000064 XN=XNeo1 
012777 004000 003546 MOV #81T11 ,.@DHSCR sMASTER CLEAR INTERFACE 
012767 000177 003640 MOV #177, TDATA sCHARACTER TO > TRANSMITTED = 177(OCTAL) 
012777 000014 003532 MOV #14, @GDHSCR sSELECT LINE 1 
012777 177777 003534 MOV sSET UP TO TRANSHIT 1 BYTE 
012777 015756 00 MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
012777 033500 003514 MOV SSET LINE SPEED FOR 9600 BAUD 
003 BIs sSET CHARACTER LENGTH FOR 7 BITS 
012777 010000 003506 MOV sSTART TRANSMITTER 
ps 003470 1%: 2 ay : sWAIT TO RECEIVE CHARACTER 
017704 003464 MOV GOHNRC ,R4 s(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
012705 106177 MOV #106177,R5 sCRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
SSTATUS IN HIGH BYT 
RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
001401 23 
sCHARACTER LENGTH, DATA 
104000 
sOR LINE NUMBER ERROR 
104400 2s: 
000003 LENGTX=LENGTX+1 
coaeee SCORE SMCEOE ese 
106377 DATAR=LINEX*#400+ 100000 +XCODE 
CHART \LINEX, \BITX,\LENGTX. \LENGTC, \XCODE, \DATAR 
012767 165560 sOISABLE ALL INTERRUPTS 
012767 003500 sSET UP FOR 400 ITERATIONS 
012767 003466 sSET UP TO ESCAPE TO NEXT TEST 





MOV 
-IF NB <> 

MOV 
-ENOC 


sSET UP TO LOOP WITH DATA 53 





012340 
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106437 


012767 000340 165430 T65: 
012767 000400 003350 
012767 012466 003336 


106377 


Lchieascaee 





0N=XNo1 
mov ;MASTER CLEAR INTERF 
Oy SCHARACTER TO BE TRANSMITTED = 377COCTAL) 
MOV SELECT LINE 14 
Ht SET UP negheee RESS. OF CHARACTER TO BE T 
: RANSMITTED 
MOV :SET LINE SPEED F 8 
BIS sSET CHARACTER LENG FOR 10 BITS 
HOV :START TRANSMITT 
is: TSTB {WAIT TO RECEIVE CHARACTER 
HOV :(R4)*RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV -—=«-@106377.RS :(RS)*EXPECTED CHARACTER IN LOW BYTE 
AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
one SR sARE EXPECTED AND RECEIVED DATA THE SAME 
MT CHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
23: SCOPE 
LENGTX=LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODE*2+1 
LINEX*LINEX+1 
BITX=BITX-BITX 
NGTX=0 
LENGTC=5 
XCODE=37 
REPT 4 
"NLIST 
DATAR=LINEX®400- 100000 +xCODE 
CHART \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX~1 
LENGTC *LENGTC+1 
XCODE*XCODES2 +1 


-ENOR 
DATAR*LINEX#400+ 100000 +XCODE 
CHARTL \LINEX, \BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 


TS \XN,400,2% 
MOV 


0340 ,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
+ MOV 62% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
3 «> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 





CZOHE -CO 


012470 


012470 
012470 
012476 
012504 





SEQ 67 ) 
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012767 
012767 
012767 


165300 
003220 
003206 


-ENOC 
XN=XNol 
MOV #61T11.8DHSCR sMASTER CLEAR INTERFACE 
MOV 037, TDATA sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
MOV #15, @DHSCR sSELECT LINE 15 
MOV @-1,8DHBC sSET UP TO TRANSMIT 1 BYTE 
MOV @TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500, 8OHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS oO, PR sSET CHARACTER LENGTH FOR 5 BITS 
MOV 20000 , SDHBAR s;START TRANSMITTER 
1$: Vs gg 7 sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC .R4 ;(R4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER 
sCHARACTER STATUS IN HIGH BYTE 
MOV #106437,R5 s(RS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
an > tare sARE EXPECTED AND RECEIVED DATA THE SAME 
ar sCHARACTER LENGTH, DATA 
;0R LINE NUMBER ERROR 
23: SCOPE 
LENGTX*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 

sTRANSMIT 1 CHARACTER ON LINE 15 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T66: MOV 0340 .PS sDISABLE ALL INTERRUPTS 
MOV $400, ICOUNT ;SET UP FOR 400 ITERATIONS 
~ MOV @2% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘ «> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel 
MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV $77, TDATA sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
MOV #15, @DHSCR sSELECT LINE 15 
MOV #-1,80HBC ;SET UP TO TRANSMIT 1 BYTE 
MOV @TDATA,@DHBA ;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , @DHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS #1, R ;SET CHARACTER LENGTH FOR 6 BITS 
MOV #20000 , SOHBAR ;START TRANSMITTER 
i$: pS Lg “+ pape sWAIT TO RECEIVE CHARACTER 
MOV SDHNRC ,R4 3(R4)=RECEIVED CHARACTER 


sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 





012620 


012750 


SEQ 68 
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012705 


012767 
012767 
012767 


000070 
012777 


106477 


00 
012746 





MOV €106477,R5 s(RS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
; STATUS IN HIGH BYTE 
ad — sARE EXPECTED AND RECEIVED DATA THE SAME 
at sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
23: SCOPE 
LENGTX*LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000+XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


sCHARACTER LENGTH TEST 

sTRANSMIT 1 gl ON LINE 15 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T67: MOV 


#340 ,PS sDISABLE ALL INTERRUPTS 
MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
“—— MOV $2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV @,FREEZ1 :SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeol 
MOV #61IT11,8D0HSCR sMASTER CLEAR INTERFACE 
MOV #177, TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
MOV #15, @0HSCR ;SELECT LINE 15 
MOV #-1,@DHBC ;SET UP TO TRANSMIT i BYTE 
MOV @TDOATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS #2 , @DHLPR ;SET CHARACTER LENGTH FOR 7 BITS 
MOV #20000 , 3DHBAR sSTART TRANSMITTER 
1$ bt di ap sWAIT TO RECELVE CHARACTER 
MOV BOHNRC ,R4 ;(R4)=*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
MOV $106577,R5 ;(RS)=EXPECTED CHARACTER ake LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
wad aa sARE EXPECTED AND RECEIVED DATA THE SAME 
7 sCHARACTER LENGTH, DATA 
EM 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 


CHART1 \LINEX,\BITX,\LENGTX, \LENGTC,\XCODE, \DATAR 





SEQ 69 
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sCHARACTER LENGTH TEST 
sTRANSMIT 1 CHARACTER ON LINE 15 
sCHARACTER LENGTH IS 10 BITS 
sEXPECTED RECEIVED CHARACTER IS 377 
sLINE SPEED IS 9600 BAUD 
012750 TS \XN,400,2$ 
012750 012767 000340 165020 170: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
912756 012767 000400 002740 MOV #400 , ICOUNT sSET UP FOR 400 ITERATIONS 
012764 012767 013076 002726 = MOV #23, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
, <> 
—— MOV ®,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000071 XN=XNeo1 
012772 012777 002656 MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 
013000 012767 000377 002750 MOV #377, TDATA sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
013006 012777 000015 002642 MOV #15, @OHSCR sSELECT LINE 15 
013014 012777 177777 002644 MOV #-1, @OHBC sSET UP TO TRANSMIT 1 BYTE 
013022 012777 015756 002634 MOV @TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
013030 012777 033500 002624 MOV #33500 , BDHLPR sSET LINE SPEED FOR 9600 BAUD 
013036 052777 000003 002616 BIS 03, PR sSET CHARACTER LENGTH FOR 10 BITS 
013044 012777 020000 002616 MOV #20000 , BDHBAR sSTART TRANSMITTER 
013052 105777 002600 1$: TSTB 80HS sWAIT TO RECEIVE CHARACTER 
013056 100375 BPL 1$ 
013060 017704 002574 MOV SDHNRC ,R4 ;(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTE® STATUS IN HIGH BYTE 
013064 012705 106777 MOV #106777,R5 ;(RS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
013070 020504 CMP RS ,R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
013072 001401 BEQ 2s 
013074 HLT sCHARACTER LENGTH, DATA 
013074 104000 EMT 
sOR LINE NUMBER ERROR 
013076 104400 2s: SCOPE 
000004 LENGTX=LENGTX+1 
000011 LENGTC=LENGTC+1 
000777 XCOOE=XCODEs2+1 
000016 LINEX=*LINEX+1 
040000 BITX=BITX+BITX 
000000 LENGTX=0 
000005 LENGTC=5 
000037 XCODE=37 
000004 -REPT 4 
-NLIST 
9 Ramee alter ea tae 
-L 
pact \LINEX , \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LIST 
-ENOR 
107037 DATAR=LINEX#400+ 100000+XCODE 
013100 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC,\XCODE, \DATAR 
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012100 
013100 
013106 
013114 


013224 
013226 


013230 


MACRO V04.00 


012767 
012767 
012767 


107077 


012767 
012767 
012767 


000073 


107037 


000340 164540 
000400 002460 
013356 002446 





SEQ 70 
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sCHARACTER LENGTH TEST 

sTRANSMIT 1 CHARACTER ON LINE 16 
s;CHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T71: MOV 340 ,PS ;DISABLE ALL INTERRUPTS 
MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
— MOV 2%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
4 «> 
MOV #, FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNeol 
MOV #B8IT11,8DHSCR sMASTER CLEAR INTERFACE 
MOV $37, TDATA sCHARACTER TO BE TRANSMITTED = 37COCTAL ) 
MOV #16, 8DHSCR ;SELECT LINE 16 
MOV #-1,80HBC ;SET UP TO TRANSMIT 1 BYTE 
MOV @TDATA,8DHBA s;SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500 , BDHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS #0 ,8DHLPR ;SET CHARACTER LENGTH FOR 5 BITS 
MOV #40000 , BDHBAR ;START TRANSMITTER 
1$: = pan ;WAIT TO RECEIVE CHARACTER 
MOV SOHNRC ,R4 ;(R4)=RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
;CHARACTER STATUS IN HIGH BYTE 
MOV #107037,R5 ;CRS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
;STATUS IN HIGH BYTE 
io hit ;sARE EXPECTED AND RECEIVED DATA THE SAME 
oA sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC*LENGTC+1 
XCODE=XCODEs2+1 


DATAR=LINEX#400+ 100000 + XCODE 
CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 

s TRANSMIT 1 CHARACTER ON LINE 16 
sCHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
72: MOV 


T72 #340 ,PS sDISABLE ALL INTERRUPTS 
MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
- MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
.L <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel1 





013360 


013360 
013360 
013366 
013374 


SEQ 71 
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012777 


000177 
107177 


012767 
012767 
012767 


107077 


107177 


MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV 077, TDATA sCHARACTER TO BE TRANSMITTED = 77(OCTAL) 
MOV #16. 90HSCR sSELECT LINE 16 
MOV -1, Cc sSET UP TO TRANSMIT 1 BYTE 
MOV @TDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500, @DHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS #1, 9DHLPR sSET CHARACTER LENGTH FOR 6 BITS 
MOV #40000 , BDHBAR sSTART TRANSMITTER 
1$: ks sWAIT TO RECEIVE CHARACTER 
MOV SDHNRC ,R4 :(R4)=RECEIVED CHARACTER 
sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #107077,R5 sCRS)*EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 
sSTATUS IN HIGH BYTE 
pad a sARE EXPECTED AND RECEIVED DATA THE SAME 
a sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR . 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODE*2+1 


DATAR=LINEX#400+ 100000 +XCODE 
CHARTi \LINEX,\BITX,\LENGTX,\LENGTC,\XCODE, \DATAR 


sCHARACTER LENGTH TEST 

sTRANSMIT 1 CHARACTER ON LINE 16 
sCHARACTER LENGTH IS 7 BITS 
sEXPECTED RECEIVED CHARACTER IS 177 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T73: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
i MOV 62% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV @, FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNeo1 
; MOV #8IT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV #177, TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 
MOV #16, BOHSCR ;SELECT LINE 16 
MOV #-1, QDHBC sSET UP TO TRANSMIT 1 BYTE 
MOV #TDATA, SDHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV 500 , 8BOHLPR sSET LINE SPEED FOR 9600 BAUD 
BIS sSET CHARACTER LENGTH FOR 7 BITS 
MOV #40000 , 8OHBAR sSTART TRANSMITTER 
i$: bi dg ry sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
MOV #107177,R5 ;(R5)=EXPECTED CHARACTER IN LOW BYTE 


sAND LINE NUMBER AND CHARACTER 





013510 


013510 
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012767 
012767 
012767 


107377 


CMP RS .R4 

BEQ 2$ 

HLT 

EMT 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX#400+ 100000 +XCODE 


SEQ 72 


sSTATUS IN HIGH BYTE 
sARE EXPECTED AND RECEIVED DATA THE SAME 


s;CHARACTER LENGTH, DATA 
sOR LINE NUMBER ERROR 


CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 
s TRANSMIT 1 CHARACTER ON LINE 16 
sCHARACTER LENGTH IS 10 BITS 


sEXPECTED RECEIVED CHARACTER IS 377 


sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
174: MOV 
MOV 
MOV 
IF NB <> 
MOV 
-ENDC 
XN=XNeo1 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
i$: TSTB 
BPL 
MOV 
MOV 
CMP 
BEG 
HLT 
2$: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
LINEX=LINEX+1 
BITX=BITX+BITX 
LENGTX=0 
LENGTC=5 
XCODE=37 


OUNT 
#2$, ESCAPE 
#,FREEZ1 


#B8IT11,@DHSCR 
#377, TDATA 


#107377,R5 


RS ,R4 
2$ 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
sSELECT LINE 16 

sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 10 BITS 

sSTART TRANSMITT 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 

;IN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
#CRS)*EXPECTED CHARACTER IN LOW BYTE 

sAND LINE NUMBER oe CHARACTER 

; STATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


sCHARACTER LENGTH, DATA 


sOR LINE NUMBER ERROR 





CZDHE -CO 


013640 


013770 


SEQ 73 
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107437 


012767 
012767 
012767 


012705 
020504 
001401 
104000 


104400 
000001 
000006 
000077 
107477 


107437 





REPT 4 
_NLIST 

DATAR=LINEX*400- 100000+xCODE 

CHART: \LINEX, \BITX, \LENGTX, \LENGTC, \XCODE, \DATAR 


XCODE=XCODE*s2+1 
-LIST 


-ENDR 
DATAR=LINEX*#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 


sCHARACTER LENGTH TEST 

37 T 1 CHARACTER ON LINE 17 

; CHARACTER LENGTH IS 5 BITS 
sEXPECTED RECEIVED CHARACTER IS 37 
sLINE SPEED IS 9600 BAUD 


TS \XN,400,2$ 
T75: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
<* MOV $23, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
= <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNeoi 
MOV #B81T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV #37, TDATA sCHARACTER TO BE TRANSMITTED = 37(OCTAL) 
MOV #17, 8DHSCR sSELECT LINE 17 
MOV #-1,@DHBC ;SET UP TO TRANSMIT 1 BYTE 
MOV STDATA,@DHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #33500, 8DHLPR ;SET LINE SPEED FOR 9600 BAUD 
BIS #0, BDHLPR ;SET CHARACTER LENGTH FOR 5 BITS 
MOV #100000, SOHBAR sSTART TRANSMITTER 
i$: ji dg _ sWAIT TO RECEIVE CHARACTER 
MOV SOHNRC ,R4 ;(R4)*RECEIVED CHARACTER 
s;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
MOV #107437 ,R5 ;(RS)*EXPECTED CHARACTER IN LOW BYTE 
;AND L NUMBER AND CHARACTER 
SSTATUS IN HIGH BYTE 
pd oo sARE EXPECTED AND RECEIVED DATA THE SAME 
a sCHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 
2s: SCOPE 
LENGTX=LENGTX+1 
LENGTC=LENGTC+1 
XCODE=XCODEs2+1 
DATAR=LINEX*#400+ 100000 +XCODE 


CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 





SEQ 74 
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; TRANSMIT 1 CHARACTER ON LINE 17 
;CHARACTER LENGTH IS 6 BITS 
sEXPECTED RECEIVED CHARACTER IS 77 
sLINE SPEED IS 9600 BAUD 
013770 TS \XN,400,2$ 
013770 012767 000340 T76: MOV #340.PS ;DISABLE ALL INTERRUPTS 
013776 012767 000400 001720 MOV #400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
01 012767 014116 001706 — MOV $23, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
A ’ <> 
cane MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA : 3 
77 XN=XNo1 
014012 012777 004000 001636 MOV #B81T11,8DHSCR sMASTER CLEAR INTERFACE 
014020 012767 000077 001730 MOV #77, TDATA ;CHARACTER TO 7 TRANSMITTED = 77COCTAL) 
014026 012777 000017 001622 MOV #17,8DHSCR sSELECT LINE i 
014034 012777 177777 001624 MOV #-1,8DHBC ;SET UP TO TRANSHIT i BYTE 
014042 012777 015756 001614 MOV S#TOATA,SDHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
914050 012777 3500 001604 MOV #33500 , 8DHLPR ;SET LINE SPEED FOR 9600 BAUD 
014056 2777 000001 001576 BIS #1 ,8DHLPR ;SET CHARACTER LENGTH FOR 6 BITS 
O01 012777 100000 001576 MOV #100000, BDHBAR ;START TRANSMITTER 
014072 105777 001560 is: TSTB 8DHSCR sWAIT TO RECEIVE CHARACTER 
014076 100375 L i$ 
014100 017704 001554 MOV SDHNRC ,R4 ;(R4)=*RECEIVED CHARACTER 
;IN LOW BYTE, AND LINE NUMBER AND 
; CHARACTER STATUS IN HIGH BYTE 
014104 012705 107477 MOV $107477,R5 ;CRS)*EXPECTED CHARACTER IN LOW BYTE 
;AND LINE NUMBER AND CHARACTER 
; STATUS IN HIGH BYT 
014110 020504 CMP RS .R4 sARE EXPECTED AND RECEIVED DATA THE SAME 
014112 001401 BEQ 2s 
014114 HLT sCHARACTER LENGTH, DATA 
014114 104000 EMT 
;OR LINE NUMBER ERROR 
014116 104400 2s: SCOPE 
000002 LENGTX=LENGTX+1 
000007 LENGTC=LENGTC+1 
000177 XCODE=XCODEs2+1 
107577 DATAR=LINEX#400+ 100000 +XCODE 
014120 CHART1 \LINEX,\BITX,\LENGTX, \LENGTC, \XCODE, \DATAR 
sCHARACTER LENGTH TEST 
fered 1 CHARACTER ON LINE 17 
TER LENGTH IS 7 BITS 
SEXPECTED RECEIVED CHARACTER IS 177 
;LINE SPEED IS 9600 BAUD 
014120 TS \XN,400,2$ 
014120 012767 000340 163650 177: MOV $340 ,PS sDISABLE ALL INTERRUPTS 
014126 012767 000400 001570 MOV $400 , ICOUNT ;SET UP FOR 400 ITERATIONS 
014134 012767 C¢€14246 001556 en MOV $23, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
he <> 
one #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000100 XN=XNel 
014142 012777 004000 001506 MOV #81T11,98DHSCR sMASTER CLEAR INTERFACE 
014150 012767 000177 001600 MOV #177, TDATA sCHARACTER TO BE TRANSMITTED = 177(OCTAL) 





014250 


014370 





MACRO VO4.00 27-JUN-85 12:56:29 PAGE 19-51 


0000 
000377 
107777 


012767 
012767 
012767 


000101 


107577 


000340 
000400 
014376 


107777 


1%: 


2s: 


MOV #17, 8DHSCR 


MOV $33500 , BDHLPR 
BIS #2, @DHLPR 

MOV #100000, BDHBAR 
i ge SDHSCR 


1$ 
MOV SDHNRC ,R4 
MOV #107577,R5 


CMP RS .R4 
2$ 


SCOPE 
LENGTX=LENGTX+1 


LENGTC=LENGTC+1 
XCODE=XCODE#2+1 
DATAR=LINEX#400+ 100000 +XCODE 
CHART1 \LINEX,\BITX,\LENGTX,\LENGTC, \XCODE, \DATAR 


-IF NB 
-ENDC 


XN=XNeo1 


i$: 


sCHARACTER LENGTH TEST 


SEQ 75 


sSELECT LINE 17 

;sSET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
;sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER LENGTH FOR 7 BITS 

sSTART TRANSMITTER 

sWAIT TO RECEIVE CHARACTER 


;(R4)=RECEIVED CHARACTER 

sIN LOW BYTE, AND LINE NUMBER AND 
sCHARACTER STATUS IN HIGH BYTE 
;CRS)=EXPECTED CHARACTER IN LOW BYTE 
sAND LINE NUMBER AND CHARACTER 

sSTATUS IN HIGH BYTE 

sARE EXPECTED AND RECEIVED DATA THE SAME 


;CHARACTER LENGTH, DATA 
;OR LINE NUMBER ERROR 


sTRANSMIT 1 CHARACTER ON LINE 17 


sCHARACTER LENGTH IS 10 BITS 


sEXPECTED RECEIVED CHARACTER IS 377 


sLINE SPEED IS 9600 BAUD 
TS \XN,400,2$ 
T100: MOV 


MOV 2$ ESCAPE 
MOV @,FREEZ1 


MOV @61T11,@DHSCR 
MOV #377, TDATA 
#17, 80HS 


MOV €107777,RS 


CMP RS ,R4 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 400 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA = 


sMASTER CLEAR INTERFACE 

sCHARACTER TO BE TRANSMITTED = 377(OCTAL) 
sSELECT LINE 17 

SET UP TO TRANSMIT 1 BYTE 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
sSET LINE SPEED FOR 9600 BAUD 

sSET CHARACTER lal FOR 10 BITS 

sSTART TRANSMITT 

sWAIT TO RECEIVE € CHARACTER 


s(R4)=RECEIVED CHARACTER 


IGH BYTE 
:(RS)*EXPECTED gee pil IN LOW BYTE 
3A INE NUMBER AND CHARACTER 
; STATUS IN HIGH BYTE 
sARE EXPECTED AND RECEIVED DATA THE SAME 


SEQ 76 
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014372 001401 BEQ 2s 
014374 HiT sCHARACTER LENGTH, DATA 
014374 104000 EMT 
;OR LINE NUMBER ERROR 

014376 104400 23: SCOPE 

000004 LENGTX*LENGTX+1 

000011 LENGTC=LENGTC+1 

000777 XCODE=XCODEs2+1 

000020 LINEX=LINEX+1 

000000 BITX=BITX+BITX 





CZOHE -CO 


1 014400 


MACRO V04.00 


016767 
013701 
001405 


001246 


164614 


164334 


164272 
164262 
164252 


001162 


-EOP 


EOP: 


3$: 
43; 
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*/BEGIN/ 


sEND OF PASS 

sTYPE NAME OF TEST 
sUPDATE PASS COUNT 

sCHECK FOR EXIT TO ACT-11 
sRESTART TEST 


TYPE sTYPE NAME OF TEST 
MEPASS 
CLR LAST sCLEAR LAST ERROR PC 
CLR ERRFLG sCLEAR ERROR FLAG 
INC PASCNT sUPDATE PASS COUNT 
TST LIGHTS s ARE WE USING LIGHTS? 
BNE et ; BRANCH IF WE ARE 
TYPE s TYPE PASCOUNT MESSAGE 
PASTXT 
OCTASC s PRINT PASSCOUNT 
PASARG 
BR 3$ ; CONTINUE 
MOV PASCNT ,LIGHTS sDISPLAY PASS COUNT 
MOV 0042 ,R1 sCHECK FOR ACT-11 OR DOP 
BEQ RESTRT sIF NOT, CONTINUE TESTING 
RESET 

JSR PC,CR1) 
NOP 
NOP 
NOP 
JMP BEGIN 
-WORD 1 s PARAMETERS TO PRINT PASSCOUNT 
-BYTE 6,2 
-WORD PASCNT 


sCHECK FOR LOOP ON CURRENT TEST 
sCHECK FOR ITERATION SUPPRESSION 


BIT @SW10, GSWR 
BNE at 
6IT @SW14, GSWR 
BNE 3$ 
BIT @SW11, GSUR 
BNE 2 
INC LPCNT 
CMP LPCNT , ICOUNT 
BNE 3$ 
CLR 
CLR LG 
MOV (SP) ,RETRN 
RTI 
MOV RETRN, (SP) 
RTI 
TST ERRFLG 
BEQ 1% 

2 | 


> 22s AYU s 


SEQ 77 





143 6 
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-SCOP1 
sCHECK FOR FREEZE ON CURRENT DATA 


052777 001000 164172 SCOPIR: BIT > relates 


001402 BEQ 4 
016716 001106 MOV FREEZ1 (SP) 
000002 1%: RTI 





SEQ 78 





SEQ 79 
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1 014616 -ERRoR ) 
;ERROR HANDLER 
ERRORS: BIT , 4 
BNE 
CHP 
BEG 
MOV 
c.a 
1%: SAVOSP 
OV 
SUB 
"OV 
ASL 
ASL 
177001 Bic 
016514 ADD 
"OV 
MOV 
001002 
000040 
TYPMSG : 
000001 000754 
ERRMSG: 0 
000010 TYPDAT : 
BEQ 
164014 
000002 
000710 EXITER: 
002000 163766 
000700 


is; 
ERTABO: 





SEQ 80 
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915030 . TRPSRV 
sTRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 
sAND USED AS OFFSET TO OBTAIN POINTER : 3 
sT0 SELECTED SUBROUTINE 
015030 011646 TRPSRV: MOV (SP),-(CSP) sGET PC OF RETURN 
015032 162716 000002 SUB @2,(SP) 3*PC OF TRAP 
015036 017616 000000 MOV @CSP).(SP) ;GET TRP 
015042 006316 TRPOK: ASL (SP) sMULTIPLY TRAP ARG BY 2 
015044 042716 177001 BIC #177001, (SP) sCLEAR UNWANTED BITS 
015050 062716 016434 ADD @TRPTAB, (SP) sPOINTER TO SUBROUTINE ADDRESS 
025054 017616 0£0000 MOV aC SP).,CSP) sSUBROUTINE ADDRESS 
015060 000136 JMP OC SP )+ 60 TO SUBROUTINE 
2 015062 - SAVREG 


sSAVE PC OF TEST THAT FAILED AND RO-RS 
015062 016667 000004 000656 SVOSP: MOV 4(SP),SAVPC 


sSAVE RO-RS 
015070 010567 000646 SVOS: MOV RS, SAVRS 
015074 010467 000640 MOV R4,SAVR4 :; 3 
015100 010367 000632 MOV R3,SAVR3 
015104 010267 000624 MOV R2,SAVR2 
015110 010167 000616 MOV R1,SAVR1 
015114 010067 000610 MOV RO,SAVRO 
015120 000002 RTI 
3 015122 -RESREG 
sRESTORE RO-RS 
015122 016700 000602 RSOS: MOV SAVRO,RO 
015126 016701 000600 MOV SAVR1,R1i 
015132 016702 000576 MOV SAVR2, 
015136 016703 000574 MOV SAVR3,R3 
015142 016704 000572 MOV SAVR4 ,R4 
015146 016705 000570 MOV SAVRS,.RS 
015152 RTI 


— 
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2 015154 
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000002 
112577 000450 


sTELETYPE OUTPUT ROUTINE 


CR5)+,@TPDBR 
1$ 


sASCII STRING INPUT ROUTINE 


. TYPER 
TYPER: MOV 
ADD 
1%: TSTB 
BPL 
TSTB 
BNE 
RTI 
2$: MOVB 
BR 
- INSTRG 
INSTRG: MOV 
ADD 
INSTRi: TYPE 
MSG: 0 
MOV 
MOV 
i$: TSTB 
BPL 
MOVB 
BICB 
BEQ 
MOVB 
2$: TST8 
BPL 
DEC 
BNE 
INSTRE: TYPE 
MQM 
BR 
INSTR2: RTI 


a(SP),MSG 
@2,(SP) 


ie > ae 


#200, (R4) 
coo *, #15 


INSTR2 
STKDBR ,STPOBR 
STPCSR 


INSTR1 





SEQ 81 


SEQ 82 
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1 015310 -PARAMS 
sCONVERT ASCII STRING TO OCTAL 5 3 
015310 011605 PARAMS: MOV CSP).R5 
015312 012567 000146 MOV CR5)+,LOLIM 
015316 012567 000144 MOV C(R5)+,HILIM 
015322 012567 000142 MOV CRS)+,DEVADR 
015326 112567 000140 MOVB CRS)+,LOBITS 
015332 112567 000135 MOVB CRS) +, ADRCNT 
015336 010516 MOV RS .CSP) 
015340 005005 PARAM1: CLR RS 
015342 012704 016456 MOV @INBUF ,R4 
015346 122714 000015 #15, (R4) 
015352 001420 BEQ PARERR 
015354 121427 000060 is: CMPB CR4), 060 
015360 002415 BLT PARERR 
015362 121427 000067 CMPB CR4) , 067 
0 3012 BGT 
015370 142714 000060 BICB #60, (R4) 
015374 152405 BISB CR4)+,R5 
015376 122714 000015 #15, (R4) 
015402 001406 BEQ LIMITS 
015404 006 ASL 
015406 006305 ASL RS 
015419 006305 ASL RS 
015412 000760 BR i$ 
015414 104404 PARERR: INSTER 
015416 000750 BR PARAM1 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
015420 020567 000042 LIMITS: CMP RS .HILIM 
015424 101373 BHI PARERR 
015426 020567 000032 CMP RS .LOLIM 
015432 103770 BLO PARERR 
015434 136705 000032 BITB LOBITS RS ; 3 
015440 001365 BNE PARERR | 
sSTORE NUMBER AT SPECIFIED ADDRESS 
015442 016704 000022 MOV DEVADR .R4 
015446 010524 1$: MOV RS .CR4 D+ 
015450 062705 000002 ADD @2,R5 
015454 105367 000013 DECB ADRCNT 
015460 001372 BNE 1$ 
015462 000002 RTI 
015464 000000 LOLIM: 0 
015466 000000 HILIM: 0 
015470 000000 DEVADR: 0 
015472 000000 LOBITS: 0 
015473 ADRCNT=LOBITS+1 





SEQ 83 
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177770 
000260 


016502 


-OCTASC 


OCTASN: 


1%: 


2s: 


3$: 


43; 





sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


MOV 8CR1)+ ,BIMWRD 
MOV BINWRD ,R4 


MOVB = CHRCNT_RS 
MOV OTEMP , RO 
MOV R4,R3 


BIC #177770, R3 
ADD #260,R3 


MOVB R3,CRO)+ 
ASR R4 
ASR R4 
ASR R4 
DEC RS 
BNE 3$ 
MOV @MDATA .R3 
MOVB -CRO),CR3)>+ 
DECB NT 

4s 
TSTB SPACNT 
BEQ $ 
MOVB #240 ,CR3)> 
DECB a 
CLRB CR3) 
TYPE 
MDATA 
DEC WROCNT 
BNE i$ 
RTI 
0 
0 


TLVL > 


06 
2 015710 


015710 
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-POINT +*/DHSCR, DHNRC. DHLPR. DHBA ,DHBC , DHBAR, DHBCR, DHSSR, OHSLR, DHRVEC ,OHRLVL. DHT é / 
sINDIRECT POINTERS : + VEC ,OHTLVL 


177560 TKCSR: 177560 
177562 TKOBR: 17 
177564 TPCSR: 177564 
177566 TPDBR: 177566 
.IRP A <DHSCR.DHNRC . DHLPR ,DHBA, DHBC , DHBAR , OHBCR ,DHSSR,DHSLR ,OHRVEC, DHRLVL .DHTVEC. OH 
A: 
-ENDM 
000000 DHSCR: 0 
000000 DHNRC: O 
000000 DHLPR: O 
000000 DHBA: 0 
000000 DHBC : 0 
000000 DHBAR: O 
000000 DHBCR: 0 ¢ 
000000 DHSSR: O ; 
000000 DHSLR: O ( 
000000 DHRVEC: 0 . 
000000 DHRLVL: O 
000000 DHTVEC: 0 
000000 DHTLVL: 0 


“VARIA <t/TDATA/> 
. ;PROGRAM VARIABLES 


000000 ERRFLG: 0 sERROR FLAG 
000000 PASCNT: 0 ;PASS COUNT 
000000 : O sERROR COUNT 
000000 : O sSCOPE RETURN ADDRESS FOR TEST LOOPING 
000000 ESCAPE: 0 sADDRESS FOR ERROR ESCAPE 
000000 FREEZi: 0 sDATA LOOPING RETURN ADDRESS 
000000 ICOUNT: 0 sITERATION COUNT FOR TEST IN PROGRESS 
000000 LPCNT: 0 sNUMBER OF ITERATIONS THIS TEST 
000000 SAVRO: O sRO SAVE AREA 
000000 SAVRi: 0 sR1 SAVE AREA 
000000 SAVR2: 0O sR2 SAVE AREA 
000000 SAVRS: 0 sR3 SAVE ARE 
000000 SAVR4: 0 sR4 SAVE AREA 
000000 SAVRS: 0 3R5 SAVE AREA 
000000 SAVSP: 0 sSTACK POINTER SAVE AREA 
000000 SAVPC: 90 sCALLING ROUTINE SAVE AREA 
000000 INIFLG: 0 ;PROGRAM aa tia FLAG 
000000 STFLG: 0 sPROGRAM START F 
000000 LAST: 90 sLAST ERROR PC 

. IRP f <t/TDATA/> 

A: 0 

-ENDM 
000000 TDOATA: 0 





CZDHE -CO 


1 025760 
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000006 
015716 


177722 


015760 
000340 
017004 

06 


0004 
000402 


177600 
177640 
177576 


000002 


162012 


161760 
161724 


-PFAIL 


PFAIL: 


RESTAR: 


PF TAB: 





sENTER HERE ON POWER FAILURE 


A0V RO,-CSP) sSAVE RO-RS ON PROCESSOR STACK 
MOV R1,-(SP) 

MOV R2,-CSP) 

MOV R4,-CSP) 

MOV RS, -CSP) 

MOV 24,-C(SP) 

MOV SP ,SAVSP sSAVE STACK POINTER 

MOV @RESTART 24 sSET UP FOR POWER UP TRAP 
=" sHALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


MOV SAVSP , SP sRESTORE STACK POINTER 
MOV (SP)+,R5 sRESTORE RO-RS 
MOV (SP)+,R3 

MOV (SP)+,R2 

MOV (SP)+,R1 

MOV (SP)+,RO 

MOV @PFAIL ,24 ;SET UP FOR POWER FAILURE 
MOV $340 ,PS 

MOV @STACK , SP 

CLR MP 

INC TEMP 

BNE .-4 

TYPE 

MCRLF 

OCTASC 

PFTAB 

TYPE 

MPF AIL 

CLR ERRFLG 

CLR LAST 

ee GRETRN 

6.2 

RETRN 
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-MSG */DH11 CHARACTER LENGTH AND BASIC DATA TEST/,*/CZDHE-CO/ 
015 012 rg MTITLE: .ASCIZ <15><12><12>/DH11 CHARACTER LENGTH AND BASIC DATA TEST /<15><12> 


104 102 
101 123 111 
103 040 104 
101 124 101 

124 105 
123 124 040 


000 
015 012 = MVECTO: .ASCIZ <15><12>/VECTOR ADDRESS-/ 


000 
015 012 = MREGAD: .ASCIZ <15><12>/CONTROL REGISTER ADDRESS-/ 


122 1 
107 111 123 
124 105 122 
040 101 104 
104 122 1 
123 123 055 
000 
yo 040 077 MQM: -ASCIZ / ?2/ 


015 012 000 MCRLF: .ASCIZ <15><i2> 
040 040 4 MPFAIL: .ASCIZ / POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


1 105 
123 124 101 
122 124 
101 124 040 
1 105 123 


015 012 = MEPASS: .ASCIZ <15><12>/CZDHE-CO0/ 


CZDHE -CO 


ono 


016370 


016502 
016514 


016514 
016514 


016553 
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105 


000000 
016470 
000000 
016502 


000000 
016514 


103 


PASTXT: 


EM1: 





: .ASCIZ 


«ASCIZ <15><12>/PASS COUNT = / 


<15><12>/R/ 
<15><12>/TEST PC-/ 


-ASCIZ 


;TABLE OF POINTERS FOR TRAP DECODING 


sBUFFERS FOR INPUT-OUTPUT 
0 
0 


0 


sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 


EM1 
OT1 
-ASCIZ /CHARACTER LENGTH ERROR/<15><12>/ExP 


REC 


SEQ 87 


; 5 
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040 
103 


122 
040 
040 
-EVEN 
DTi: 2 
-BYTE 6,2 
SAVRS 
BYTE 6,0 
SAVR4 
-ENDCOD 
DCOD: oO 





SEQ 89 
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SYMBOL TABLE 
ADRCNT= 015473 ERRTAB 016514 PFAIL 015760 SWil = 
BEGIN 001306 ERTABO 015022 PFTAB 016120 SWi2 = 010000 
BINWRD 015644 ESCAPE 015720 POPRO = 012600 SWi3 = 020000 
IT™X =» EXITER 015000 POP1SP= 005726 SW14 = 040000 
BITOO = 000001 FREEZ1 015722 POP2SP= 0226 SWiS = 100000 
BITO1 = HALTS 014760 Ss = 177776 TOATA 015756 
BITO2 = HILIM 015466 PUSHRO= 010046 TE 016470 
BITOS = 000010 ICOUNT 015724 PUSH1S= 005746 TKCSR 015646 
IT04 = 000020 016456 PUSH2S= TKDBR 015650 
BITOS = 000040 INIFLG 015750 RDATA = 107777 TPCSR 015652 
BITO6 = 000100 INSTER= 104404 RESREG 014756 TPOBR 015654 
BITO7 = 000200 INSTR = 104403 RESTAR 016016 TRPOK 15042 
BITOB = 000400 INSTRE 015300 RESTRT 014466 TRPSRV 015030 
BITO9 = 001000 INSTRG 015206 RESOS = 104407 TRPTAB 016434 
BIT10 = 002000 INSTR1 015220 RETRN 015716 TYPDAT 014740 
BIT11 = 004000 INSTR2 015306 RSOS 015122 TY = 104401 
BIT12 = 010000 LAST 015754 SAVPC 015746 TYPER 015154 
BIT13 = 020000 LENGTC= 000011 SAVRO 015730 TYPMSG 014716 
BIT14 = 040000 LENGTX= SAVR1 015732 Ti 001400 
BIT15 = 100000 LIGHTS 001002 SAVR2 015734 T10 002550 
CHRCNT 015642 LIMITS 015420 SAVRS 015736 T100 014250 
CLENGT= 000011 LINEX = SAVR4 015740 T1i 002700 
CODEX = 000777 LOBITS 015472 SAVRS 015742 T12 003030 
DATABP 014754 LOGICA 014456 SAVSP 015744 T13 003160 
DATAR = 107777 015464 SAVOSP= 104406 T14 003310 
DEVADR 015470 LPCNT 015726 SCOPE = 104400 T1i5 
DHBA 015664 MCRLF 016272 SCOPER 014500 T16 003570 
DHBAR 015670 MDATA 016502 SCOPE1= 104410 T17 003720 
MEPASS 016362 SCOPIR 014600 T2 001530 
OHBCR 015672 MPFAIL 016275 SPACNT= 015643 T20 
DHLPR 015662 016266 STACK = 017004 Tai 004200 
DHNRC 015660 016415 START 001004 T22 004330 
MREGAD 016232 STFLG 015752 T23 004460 
DHRVEC 015700 015222 SV05 015070 T24 004610 
015656 MTITLE 016130 SVOSP 015062 Tes 004740 
DHSLR 015676 MTSTPC 016421 SWR 001000 T26 005070 
OHSSR 015674 MVECTO 016210 SWOO = 000001 T27 005220 
DHTLVL 015706 ad SWO1 = 000002 T3 001660 
DHTVEC 015704 OCTASC= 1 = 000004 T30 005350 
OT 016572 015474 SWOS = 000010 T31 00 
1 016520 PARAM = 1 SHO4 = 000020 T32 005630 
ENOC 0 015310 SWOS = 133 005760 
014400 PARAMi 01 SWO6 = 000100 134 006110 
ERRCNT 015714 PARERR 015414 SWOS = 00 T35 40 
ERRFLG 015710 PASARG 014472 SWO9 = 001000 T36 006370 
36 PASCNT 015712 SW10 = 002000 137 006520 
ERRORS 014616 PASTXT 016375 
- ABS. 016606 


000000 00 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 17664 WORDS ( 69 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 P 
CZDHEC .BIN, CZDHEC . SEQ=CZDHEC .DOC ,DHMACA. MAC, CZDHEC .P11 
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